experiments with teal. usage examples are sparse

inst/apps/redcap_module/rc_modules.R

@@ -0,0 +1,103 @@
+m_redcap_readUI <- function(id) {
+  ns <- NS(id)
+  tagList(
+    shiny::textInput(
+      inputId = "uri",
+      label = "URI",
+      value = "https://redcap.your.institution/api/"
+    ),
+    shiny::textInput(
+      inputId = "api",
+      label = "API token",
+      value = ""
+    ),
+    shiny::tableOutput(outputId = ns("table")),
+    shiny::uiOutput(outputId = ns("fields")),
+    shiny::uiOutput(outputId = ns("instruments")),
+    shiny::uiOutput(outputId = ns("arms")),
+    shiny::actionButton(inputId = ns("submit"), "Submit")
+  )
+}
+
+m_redcap_readServer <- function(id) {
+  ns <- NS(id)
+  moduleServer(
+    id,
+    function(input, output, session) {
+      ns <- NS(id)
+      instr <- shiny::reactive({
+        shiny::req(input$api)
+        shiny::req(input$uri)
+        REDCapR::redcap_instruments(redcap_uri = input$uri, token = input$api)
+      })
+
+      output$instruments <- shiny::renderUI({
+        shiny::selectizeInput(
+          inputId = ns("instruments"),
+          selected = NULL,
+          label = "Instruments to include",
+          choices = instr()[["data"]][[1]],
+          multiple = TRUE
+        )
+      })
+
+      dd <- shiny::reactive({
+        shiny::req(input$api)
+        shiny::req(input$uri)
+        REDCapR::redcap_metadata_read(redcap_uri = input$uri, token = input$api)
+      })
+
+      output$fields <- shiny::renderUI({
+        shiny::selectizeInput(
+          inputId = ns("fields"),
+          selected = NULL,
+          label = "Fields/variables to include",
+          choices = dd()[["data"]][[1]],
+          multiple = TRUE
+        )
+      })
+
+      arms <- shiny::reactive({
+        shiny::req(input$api)
+        shiny::req(input$uri)
+        REDCapR::redcap_event_read(redcap_uri = input$uri, token = input$api)
+      })
+
+      output$arms <- shiny::renderUI({
+        shiny::selectizeInput(
+          inputId = ns("arms"),
+          selected = NULL,
+          label = "Arms/events to include",
+          choices = arms()[["data"]][[3]],
+          multiple = TRUE
+        )
+      })
+
+      output$table <- shiny::renderTable({
+        dd()[["data"]]
+      })
+
+      shiny::eventReactive(input$submit, {
+        shiny::req(input$api)
+        data <- REDCapCAST::read_redcap_tables(
+          uri=input$uri,
+          token = input$api,
+          fields = unique(c(dd()[["data"]][[1]][1],input$fields)),
+          forms = input$instruments,
+          events = input$arms,
+          raw_or_label = "both"
+        )
+
+        info <- REDCapR::redcap_project_info_read(redcap_uri = input$uri, token = input$api)
+        filename <- info$data$project_title
+
+        data |>
+          REDCapCAST::redcap_wider() |>
+          REDCapCAST::suffix2label() |>
+          REDCapCAST::as_factor() |>
+          dplyr::select(-dplyr::ends_with("_complete")) |>
+          dplyr::select(-dplyr::any_of(dd()[["data"]][[1]][1]))
+      })
+    }
+  )
+}

inst/apps/redcap_module/server.R

@@ -0,0 +1,91 @@
+library(REDCapCAST)
+library(REDCapR)
+library(shiny)
+
+# ns <- shiny::NS(id)
+
+
+
+
+server <- function(input, output, session) {
+  # ns <- NS(id)
+
+  instr <- shiny::reactive({
+    shiny::req(input$api)
+    shiny::req(input$uri)
+    REDCapR::redcap_instruments(redcap_uri = input$uri, token = input$api)
+  })
+
+  output$instruments <- shiny::renderUI({
+    shiny::selectizeInput(
+      inputId = "instruments",
+      selected = NULL,
+      label = "Instruments to include",
+      choices = instr()[["data"]][[1]],
+      multiple = TRUE
+    )
+  })
+
+  dd <- shiny::reactive({
+    shiny::req(input$api)
+    shiny::req(input$uri)
+    REDCapR::redcap_metadata_read(redcap_uri = input$uri, token = input$api)
+  })
+
+  output$fields <- shiny::renderUI({
+    shiny::selectizeInput(
+      inputId = "fields",
+      selected = NULL,
+      label = "Fields/variables to include",
+      choices = dd()[["data"]][[1]],
+      multiple = TRUE
+    )
+  })
+
+  arms <- shiny::reactive({
+    shiny::req(input$api)
+    shiny::req(input$uri)
+    REDCapR::redcap_event_read(redcap_uri = input$uri, token = input$api)
+  })
+
+  output$arms <- shiny::renderUI({
+    shiny::selectizeInput(
+      inputId = "arms",
+      selected = NULL,
+      label = "Arms/events to include",
+      choices = arms()[["data"]][[3]],
+      multiple = TRUE
+    )
+  })
+
+  output$table <- shiny::renderTable({
+    dd()[["data"]]
+  })
+
+  data <- shiny::eventReactive(input$submit, {
+    browser()
+    shiny::req(input$api)
+    data <- REDCapCAST::read_redcap_tables(
+      uri = input$uri,
+      token = input$api,
+      fields = unique(c(dd()[["data"]][[1]][1], input$fields)),
+      forms = input$instruments,
+      events = input$arms,
+      raw_or_label = "both"
+    )
+
+    info <- REDCapR::redcap_project_info_read(redcap_uri = input$uri, token = input$api)
+    filename <- info$data$project_title
+
+    data |>
+      REDCapCAST::redcap_wider() |>
+      REDCapCAST::suffix2label() |>
+      REDCapCAST::as_factor() |>
+      dplyr::select(-dplyr::ends_with("_complete")) |>
+      dplyr::select(-dplyr::any_of(dd()[["data"]][[1]][1]))
+  })
+
+  output$export <- DT::renderDT({
+    data()
+  })
+}

inst/apps/redcap_module/ui.R

@@ -0,0 +1,23 @@
+library(REDCapCAST)
+library(REDCapR)
+library(shiny)
+
+ui <- shiny::fluidPage(
+  # shiny::helpText("Submit URL and API token to browse download options"),
+  shiny::textInput(
+    inputId = "uri",
+    label = "URI",
+    value = "https://redcap.your.institution/api/"
+  ),
+  shiny::textInput(
+    inputId = "api",
+    label = "API token",
+    value = ""
+  ),
+  shiny::tableOutput("table"),
+  shiny::uiOutput("fields"),
+  shiny::uiOutput("instruments"),
+  shiny::uiOutput("arms"),
+  shiny::actionButton("submit", "Submit"),
+  DT::DTOutput("export")
+)