R/mod_csv_server.R

In personalscience/psi-shiny-cgm: Personal Science CGM Analysis Web App

# chooseLibreviewUI.R
# Shiny module to select a CSV file.



# Module UI function
csvFileUI <- function(id, label = "CSV file") {
  # `NS(id)` returns a namespace function, which was save as `ns` and will
  # invoke later.
  ns <- NS(id)

  tagList(
    fileInput(ns("file"), label)
  )

}


#' Module server function
#'
#' @return a module server that can read a csv file
#' @import readr
# csvFileServer <- function(id, stringsAsFactors) {
#   moduleServer(
#     id,
#     ## Below is the module function
#     function(input, output, session) {
#       # The selected file, if any
#       userFile <- reactive({
#         # If no file is selected, don't do anything
#         validate(need(input$file, message = FALSE))
#         input$file
#       })
#
#       # The user's data, parsed into a data frame
#       dataframe <- reactive({
#         readr::read_csv(userFile()$datapath, col_types = "cccdddddcddddcddddd",
#                         skip = 1)
#       })
#
#       # We can run observers in here if we want to
#       observe({
#         msg <- sprintf("File %s was uploaded", userFile()$name)
#         cat(msg, "\n")
#       })
#
#       # Return the reactive that yields the data frame
#       return(dataframe)
#     }
#   )
# }

# Module server function
csvFilePathServer <- function(id, stringsAsFactors) {
  moduleServer(
    id,
    ## Below is the module function
    function(input, output, session) {
      # The selected file, if any
      userFile <- reactive({
        # If no file is selected, don't do anything
        validate(need(input$file, message = FALSE))
        input$file
      })

      # The user's data, parsed into a data frame
      dataframe <- reactive({userFile() })

      # We can run observers in here if we want to
      observe({
        msg <- sprintf("File %s was uploaded", userFile()$name)
        cat(msg, "\n")
      })

      # Return the reactive that yields the data frame
      return(dataframe)
    }
  )
}

demo_read_CSV <- function () {
  ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(csvFileUI("datafile", "Libreview CSV file"),
                   textOutput("filepath1"),
                   textOutput("csv_filename")
                   ),
      mainPanel(
        dataTableOutput("table")
      )
    )
  )

  server <- function(input, output, session) {
    datafile <- csvFileServer("datafile",stringsAsFactors = FALSE)
   datafilepath <- csvFilePathServer("datafile")



    output$csv_filename <- renderText(sprintf("File %s was here",
                                              datafilepath()$name))

    output$table <- renderDataTable({
      datafile()
    })

  }
  shinyApp(ui, server)
}

#demo_read_CSV()