R Shinyのローカルサーバーに保存するためにアップロードされたファイルを使用する方法？

Question

私はユーザーがアップロードしたファイルを使用し、それを他のRスクリプトにリンクしたいと考えています。私は今すぐファイルにアクセスすることができません。

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

ファイルにアクセスできないため、server.rファイルは空です。アップロードしたファイルを現地のマシンに保存します。このよう

Answer 1

：

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") 

) 
) 

server.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) 
    }) 

} 
) 

もちろん、あなたが使用するも、セパレータが正しいことを確認、またはするか持っていますそのための入力。お役に立てれば！