R/import/server_import.R

In pole-national-donnees-biodiversite/OB1.metadata: Ocean hackathon défi B1

server_import <- function(input, output, session, savevar) {
  ns <- session$ns
  
  savevar$import <- reactiveValues()
  
  # check file import
  output$contents <- renderTable({
    
    inFile <- input$file
    
    if (is.null(inFile))
      return(NULL)
    
    print(guess_type(inFile$datapath))
    return(inFile$name)
    
  })
  
  observe({
    req(input)
    savevar$import$file <- input$file
  })
  
  # output
  return(savevar)
}