FileSurveyInput: FileSurveyInput: File upload UI for survey data analysis.
In leevenstar/jstest: 'RStudio' Addins and 'Shiny' Modules for Medical Research

Description Usage Arguments Details Value Examples

File upload UI for survey data analysis.

1	FileSurveyInput(id, label = "Upload data (csv/xlsx/sav/sas7bdat/dta)")

`id`	id
`label`	label, Default: 'csv/xlsx/sav/sas7bdat/dta file'

File upload UI for survey data analysis.

 library(shiny);library(DT);library(data.table);library(readxl);library(jstable)
 ui <- fluidPage(
   sidebarLayout(
     sidebarPanel(
       FileSurveyInput("datafile")
     ),
     mainPanel(
       tabsetPanel(type = "pills",
                   tabPanel("Data", DTOutput("data")),
                   tabPanel("Label", DTOutput("data_label", width = "100%"))
                   )
     )
   )
 )

 server <- function(input, output, session) {
   data <- callModule(FileSurvey, "datafile")

   output$data <- renderDT({
     data()$data
   })

   output$label <- renderDT({
     data()$label
   })
 }