experiments with teal. usage examples are sparse

inst/apps/data_analysis/rsconnect/shinyapps.io/agdamsbo/webResearch.dcf

@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13276335
-bundleId: 9433115
+bundleId: 9436643
 url: https://agdamsbo.shinyapps.io/webResearch/
 version: 1

inst/apps/data_analysis/server.R

@@ -22,6 +22,8 @@ library(broom.helpers)
 library(REDCapCAST)
 library(easystats)
 library(patchwork)
+library(DHARMa)
+library(IDEAFilter)
 # if (!requireNamespace("webResearch")) {
 #   devtools::install_github("agdamsbo/webResearch", quiet = TRUE, upgrade = "never")
 # }
@@ -123,13 +125,11 @@ server <- function(input, output, session) {
     return(out)
   })
 
-  # output$data.input <- shiny::renderTable({
-  #   utils::head(ds(), 20)
-  # })
-
-  output$data.input <- DT::renderDT({
-    ds()[base_vars()]
-  })
+  output$data.input <-
+    DT::renderDT({
+      shiny::req(input$file)
+      ds()[base_vars()]
+    })
 
   output$data.classes <- gt::render_gt({
     shiny::req(input$file)
@@ -234,7 +234,8 @@ server <- function(input, output, session) {
           })(),
         table2 = models |>
           purrr::map(regression_table) |>
-          tbl_merge()
+          tbl_merge(),
+        input = input
       )
 
       output$table1 <- gt::render_gt(

inst/apps/data_analysis/ui.R

@@ -1,5 +1,7 @@
 library(shiny)
 library(bslib)
+library(IDEAFilter)
+library(teal)
 requireNamespace("gt")
 
 panels <- list(
@@ -7,11 +9,11 @@ panels <- list(
     title = "Data overview",
     # shiny::uiOutput("data.classes"),
     # shiny::uiOutput("data.input"),
-    shiny::p("Classes of uploaded data"),
-    gt::gt_output("data.classes"),
+    # shiny::p("Classes of uploaded data"),
+    # gt::gt_output("data.classes"),
     shiny::p("Subset data"),
     DT::DTOutput("data.input")
-  ),
+      ),
   bslib::nav_panel(
     title = "Baseline characteristics",
     gt::gt_output(outputId = "table1")
@@ -158,8 +160,9 @@ ui <- bslib::page(
           icon = shiny::icon("pencil", lib = "glyphicon"),
           label_busy = "Working...",
           icon_busy = fontawesome::fa_i("arrows-rotate",
-                                        class = "fa-spin",
-                                        "aria-hidden" = "true"),
+            class = "fa-spin",
+            "aria-hidden" = "true"
+          ),
           type = "primary",
           auto_reset = TRUE
         ),