shiny app moved to app folder and seperate files for possible shinylive deploy

app/server.R

@@ -0,0 +1,81 @@
+server <- function(input, output, session) {
+  require(REDCapCAST)
+
+  dat <- shiny::reactive({
+    shiny::req(input$ds)
+
+    read_input(input$ds$datapath)
+  })
+
+  dd <- shiny::reactive({
+    ds2dd_detailed(data = dat())
+  })
+
+
+  output$data.tbl <- shiny::renderTable({
+    dd() |>
+      purrr::pluck("data") |>
+      head(20) |>
+      dplyr::tibble()
+  })
+
+  output$meta.tbl <- shiny::renderTable({
+    dd() |>
+      purrr::pluck("meta") |>
+      dplyr::tibble()
+  })
+
+  # Downloadable csv of dataset ----
+  output$downloadData <- shiny::downloadHandler(
+    filename = "data_ready.csv",
+    content = function(file) {
+      write.csv(purrr::pluck(dd(), "data"), file, row.names = FALSE)
+    }
+  )
+
+  # Downloadable csv of data dictionary ----
+  output$downloadMeta <- shiny::downloadHandler(
+    filename = "dictionary_ready.csv",
+    content = function(file) {
+      write.csv(purrr::pluck(dd(), "meta"), file, row.names = FALSE)
+    }
+  )
+
+  output_staging <- shiny::reactiveValues()
+  output_staging$meta <- output_staging$data <- NA
+
+  shiny::observeEvent(input$upload.meta,{  upload_meta()  })
+
+  shiny::observeEvent(input$upload.data,{  upload_data()  })
+
+  upload_meta <- function(){
+
+    shiny::req(input$uri)
+
+    shiny::req(input$api)
+
+    output_staging$meta <- REDCapR::redcap_metadata_write(
+      ds = purrr::pluck(dd(), "meta"),
+      redcap_uri = input$uri,
+      token = input$api
+    )|> purrr::pluck("success")
+  }
+
+  upload_data <- function(){
+
+    shiny::req(input$uri)
+
+    shiny::req(input$api)
+
+    output_staging$data <- REDCapR::redcap_write(
+      ds = purrr::pluck(dd(), "data"),
+      redcap_uri = input$uri,
+      token = input$api
+    ) |> purrr::pluck("success")
+  }
+
+  output$upload.meta.print <- renderText(output_staging$meta)
+
+  output$upload.data.print <- renderText(output_staging$data)
+
+}

app/ui.R

@@ -0,0 +1,89 @@
+ui <- shiny::fluidPage(
+
+  ## -----------------------------------------------------------------------------
+  ## Application title
+  ## -----------------------------------------------------------------------------
+  shiny::titlePanel("Simple REDCap data base creation and data upload from data set file via API",
+                    windowTitle = "REDCap databse creator"
+  ),
+  shiny::h5("Please note, that this tool serves as a demonstration of some of the functionality
+       of the REDCapCAST package. No responsibility for data loss or any other
+       problems will be taken."),
+
+  ## -----------------------------------------------------------------------------
+  ## Side panel
+  ## -----------------------------------------------------------------------------
+
+  shiny::sidebarPanel(
+    shiny::h4("REDCap database and dataset"),
+    shiny::fileInput("ds", "Choose data file",
+                     multiple = FALSE,
+                     accept = c(
+                       ".csv",
+                       ".xls",
+                       ".xlsx",
+                       ".dta"
+                     )
+    ),
+    shiny::h6("Below you can download the dataset formatted for upload and the
+         corresponding data dictionary for a new data base."),
+    # Button
+    shiny::downloadButton("downloadData", "Download data"),
+
+    # Button
+    shiny::downloadButton("downloadMeta", "Download dictionary"),
+
+
+    # Horizontal line ----
+    shiny::tags$hr(),
+    shiny::h4("REDCap upload"),
+    shiny::textInput(
+      inputId = "uri",
+      label = "URI",
+      value = "https://redcap.au.dk/api/"
+    ),
+    shiny::textInput(
+      inputId = "api",
+      label = "API key",
+      value = "21CF2C17EA1CA4F3688DF991C8FE3EBF"
+    ),
+    shiny::actionButton(
+      inputId = "upload.meta",
+      label = "Upload dictionary", icon = shiny::icon("book-bookmark")
+    ),
+    shiny::h6("Please note, that before uploading any real data, put your project
+         into production mode."),
+    shiny::actionButton(
+      inputId = "upload.data",
+      label = "Upload data", icon = shiny::icon("upload")
+    ),
+
+    # Horizontal line ----
+    shiny::tags$hr()
+  ),
+  shiny::mainPanel(
+    shiny::tabsetPanel(
+
+      ## -----------------------------------------------------------------------------
+      ## Summary tab
+      ## -----------------------------------------------------------------------------
+      shiny::tabPanel(
+        "Summary",
+        shiny::h3("Data overview (first 20)"),
+        shiny::htmlOutput("data.tbl", container = shiny::span),
+        shiny::h3("Dictionary overview"),
+        shiny::htmlOutput("meta.tbl", container = shiny::span)
+      ),
+      ## -----------------------------------------------------------------------------
+      ## Upload tab
+      ## -----------------------------------------------------------------------------
+      shiny::tabPanel(
+        "Upload",
+        shiny::h3("Meta upload overview"),
+        shiny::htmlOutput("upload.meta.print", container = shiny::span),
+        shiny::h3("Data upload overview"),
+        shiny::htmlOutput("upload.data.print", container = shiny::span)
+      )
+    )
+  )
+)