From 32bdea64ed52915a7d98cf6d2d99d881a91263cd Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 23 Jan 2025 09:10:31 +0100
Subject: [PATCH] fixed browser

---
 inst/apps/data_analysis_modules/app.R               | 13 +++++++++++--
 .../shinyapps.io/agdamsbo/freesearcheR.dcf          |  2 +-
 inst/apps/data_analysis_modules/server.R            |  3 ++-
 inst/apps/data_analysis_modules/ui.R                | 10 +++++++++-
 4 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/inst/apps/data_analysis_modules/app.R b/inst/apps/data_analysis_modules/app.R
index 54186df..cc26b34 100644
--- a/inst/apps/data_analysis_modules/app.R
+++ b/inst/apps/data_analysis_modules/app.R
@@ -3599,7 +3599,15 @@ ui_elements <- list(
           # ),
           # shiny::column(
           #   width = 8,
-          toastui::datagridOutput(outputId = "table_mod") # ,
+          fluidRow(
+          toastui::datagridOutput(outputId = "table_mod")
+          ),
+          shiny::tags$br(),
+          shiny::tags$br(),
+          shiny::tags$br(),
+          shiny::tags$br(),
+          shiny::tags$br()
+          # ,
           # shiny::tags$b("Reproducible code:"),
           # shiny::verbatimTextOutput(outputId = "filtered_code")
           #   ),
@@ -4134,7 +4142,8 @@ server <- function(input, output, session) {
     # data <- rv$data
     toastui::datagrid(
       # data = rv$data # ,
-      data = data_filter(), pagination = 30,
+      data = data_filter(),
+      pagination = 10
       # bordered = TRUE,
       # compact = TRUE,
       # striped = TRUE
diff --git a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
index d38b3ab..66c2db2 100644
--- a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
+++ b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13611288
-bundleId: 9687528
+bundleId: 9687629
 url: https://agdamsbo.shinyapps.io/freesearcheR/
 version: 1
diff --git a/inst/apps/data_analysis_modules/server.R b/inst/apps/data_analysis_modules/server.R
index d0206a7..223f20f 100644
--- a/inst/apps/data_analysis_modules/server.R
+++ b/inst/apps/data_analysis_modules/server.R
@@ -247,7 +247,8 @@ server <- function(input, output, session) {
     # data <- rv$data
     toastui::datagrid(
       # data = rv$data # ,
-      data = data_filter(), pagination = 30,
+      data = data_filter(),
+      pagination = 10
       # bordered = TRUE,
       # compact = TRUE,
       # striped = TRUE
diff --git a/inst/apps/data_analysis_modules/ui.R b/inst/apps/data_analysis_modules/ui.R
index 3c883f9..7cc12e8 100644
--- a/inst/apps/data_analysis_modules/ui.R
+++ b/inst/apps/data_analysis_modules/ui.R
@@ -235,7 +235,15 @@ ui_elements <- list(
           # ),
           # shiny::column(
           #   width = 8,
-          toastui::datagridOutput(outputId = "table_mod") # ,
+          fluidRow(
+          toastui::datagridOutput(outputId = "table_mod")
+          ),
+          shiny::tags$br(),
+          shiny::tags$br(),
+          shiny::tags$br(),
+          shiny::tags$br(),
+          shiny::tags$br()
+          # ,
           # shiny::tags$b("Reproducible code:"),
           # shiny::verbatimTextOutput(outputId = "filtered_code")
           #   ),