SHINYを使用してアップロードしたcsvファイルを新しいcsvファイルにコピーするにはどうすればよいですか？

Question

UIのユーザーがアップロードしたCSVファイルから、自分のシステム上の別のCSVファイルにデータをコピーしたいとします。データはまったく同じ方法でコピーする必要があります。何をすべきか？

Answer 1

server.R：

library(shiny) 
library(DT) 

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

    df_products_upload <- observeEvent(input$target_upload,{ 
    inFile <- input$target_upload 
    if (is.null(inFile)) 
     return(NULL) 
    file.copy(inFile$datapath, paste0(getwd(),"/data.csv"), overwrite = TRUE, recursive = FALSE, 
       copy.mode = TRUE, copy.date = FALSE) 
    }) 

} 
) 

ui.R

ui <- shinyUI(fluidPage(

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

) 
) 

このコピー作業ディレクトリにdata.csvするファイル。お役に立てれば！