FileSurvey: File upload server module for survey data analysis.

File upload server module for survey data analysis.

FileSurvey(input, output, session, nfactor.limit = 20)

Arguments

input	input
output	output
session	session
nfactor.limit	nfactor limit to include, Default: 20

Value

File upload server module for survey data analysis.

Details

File upload server module 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
  })
}