R/simple-form-ui/server.R

In mlgrm/old-svyr: tools for creating and analysing odk-compatible surveys in R

library(svyr)

shinyServer(function(input, output) {
#   browser()
#   output$filename <- sub("csv$","xlsx",input$simple.form$name)
  output$xlsform <- downloadHandler(
    filename=function()
      paste0(gsub("[^A-z0-9_-]+","_",
                  sub("^([^A-z])","form_\\1",
                      sub("\\.csv","", input$simple.form$name))),".xls"),
    content=function(file){
      if(is.null(input$simple.form))return(NULL)
      csv2form(input$simple.form$datapath,path=file,
               title=sub("\\.csv$","",input$simple.form$name))
    }
#   output$contents <- renderTable({
#     # input$file1 will be NULL initially. After the user selects
#     # and uploads a file, it will be a data frame with 'name',
#     # 'size', 'type', and 'datapath' columns. The 'datapath'
#     # column will contain the local filenames where the data can
#     # be found.
#
#     inFile <- input$simple.form
#
#    read.csv(inFile$datapath, header = input$header,
#            sep = input$sep, quote = input$quote)
  )
})