learning - shiny r studio examples

¿Cómo usar el archivo cargado para guardarlo en el servidor local en R Shiny?

Question

Quiero utilizar el archivo cargado por el usuario y luego vincularlo a mi otro script R. No puedo acceder al archivo en este momento.

UI -> fileInput("ghiFile", "Choose GHI File (.csv)", 
accept=c(''text/csv'',  ''text/comma-separated-values'',''text/plain'', ''.csv'')),

El archivo server.r está vacío ya que no puedo obtener acceso al archivo. Quiero guardar el archivo cargado en mi máquina local por ahora.

Answer 1

Me gusta esto:

ui.R

ui <- shinyUI(fluidPage(

  fileInput(''target_upload'', ''Choose file to upload'',
            accept = c(
              ''text/csv'',
              ''text/comma-separated-values'',
              ''.csv''
            )),
  DT::dataTableOutput("sample_table")

)
)

servidor.R

library(shiny)
library(DT)

# Define server logic required to draw a histogram
shinyServer(function(input, output) {

  df_products_upload <- reactive({
    inFile <- input$target_upload
    if (is.null(inFile))
      return(NULL)
    df <- read.csv(inFile$datapath, header = TRUE,sep = ";")
    return(df)
  })

  output$sample_table<- DT::renderDataTable({
    df <- df_products_upload()
    DT::datatable(df)
  })

}
)

Por supuesto, debe asegurarse de que el separador sea correcto o también utilizar una entrada para eso. ¡Espero que esto ayude!