experiments with teal. usage examples are sparse

inst/apps/teal_test/app.R

@@ -0,0 +1,113 @@
+library(teal)
+library(teal.modules.general)
+library(teal.widgets)
+library(readr)
+library(MASS)
+library(stats)
+library(gtsummary)
+library(gt)
+library(openxlsx2)
+library(haven)
+library(readODS)
+library(shiny)
+library(bslib)
+library(assertthat)
+library(dplyr)
+library(quarto)
+library(here)
+library(broom)
+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")
+# }
+# library(webResearch)
+
+if (file.exists(here::here("functions.R"))) {
+  source(here::here("functions.R"))
+}
+
+data_upload <- teal_data_module(
+  ui <- function(id) {
+    ns <- NS(id)
+    shiny::fluidPage(
+      shiny::radioButtons(
+        inputId = "import",
+        label = "Specify categorical variables?",
+        selected = "no",
+        inline = TRUE,
+        choices = list(
+          "Upload file" = "file",
+          "Export from REDCap" = "redcap"
+        )
+      ),
+      shiny::conditionalPanel(
+        condition = "input.import=='file'",
+      m_datafileUI(id)
+      ),
+      shiny::conditionalPanel(
+        condition = "input.import=='redcap'",
+        m_redcap_readUI(id)
+      )
+    )
+  },
+  server = function(id) {
+    ns <- NS(id)
+    moduleServer(id, function(input, output, session) {
+    shiny::reactive({
+    if (input$import == "file") {
+    m_datafileServer(id, output.format = "teal")
+      } else {
+        m_redcap_readServer(id, output.format = "teal")
+      }
+    })
+    })
+  }
+)
+
+tm_variable_browser_module <- tm_variable_browser(
+  label = "Variable browser",
+  ggplot2_args = ggplot2_args(
+    labs = list(subtitle = "Plot generated by Variable Browser Module")
+  )
+)
+
+
+filters <- teal::teal_slices()
+
+app_source <- "https://github.com/agdamsbo/webresearch"
+gh_issues_page <- "https://github.com/agdamsbo/webresearch/issues"
+
+header <- tags$span(
+  style = "display: flex; align-items: center; justify-content: space-between; margin: 10px 0 10px 0;",
+  tags$span("webResearch (teal)", style = "font-size: 30px;") # ,
+  # tags$span(
+  #   style = "display: flex; align-items: center;",
+  #   tags$img(src = nest_logo, alt = "NEST logo", height = "45px", style = "margin-right:10px;"),
+  #   tags$span(style = "font-size: 24px;", "agdamsbo")
+  # )
+)
+
+footer <- tags$p(
+  "This teal app was developed by AGDamsbo using the {teal} framework for Shiny apps:",
+  tags$a(href = app_source, target = "_blank", "Source Code"), ", ",
+  tags$a(href = gh_issues_page, target = "_blank", "Report Issues")
+)
+
+app <- init(
+  data = data_upload,
+  filter = filters,
+  modules = modules(
+    tm_data_table("Data Table"),
+    tm_variable_browser_module
+  ),
+  title = build_app_title("webResearch (teal)"),
+  header = header,
+  footer = footer
+)
+
+shinyApp(app$ui, app$server)