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)