FileSurveyInput: File upload UI for survey data analysis.

File upload UI for survey data analysis.

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

Arguments

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

Value

File upload UI for survey data analysis.

Details

File upload UI for survey data analysis.

Examples

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
  })
}