R Shiny：上傳圖像文件並保存到服務器

Question

我試圖上傳一個圖像，然後使用Shiny將其保存到服務器文件系統。

要上傳，我發現

fileInput 

它創建一個包含圖像的細節和數據路徑一data.frame。那麼如何將其用於保存到遠程服務器？

Answer 1

這裏是基本的例子。它只會將上傳的文件複製到服務器上的位置。這是在同一臺計算機上，但它可能在任何地方。

library(shiny) 

shinyApp(
    ui = shinyUI( 
    fluidRow( 
     fileInput("myFile", "Choose a file", accept = c('image/png', 'image/jpeg')) 
    ) 
), 
    server = shinyServer(function(input, output,session){ 
    observeEvent(input$myFile, { 
     inFile <- input$myFile 
     if (is.null(inFile)) 
     return() 
     file.copy(inFile$datapath, file.path("c:/temp", inFile$name)) 
    }) 
    }) 
) 

shinyApp(ui, server)