Shiny 闪亮的应用程序，传输文件

我试图制作一个非常简单的应用程序，将用户选择的文件传输到固定位置。然后打印传输结果（真/假）。复制的语法在外部工作

library(shiny)

ui <- fluidPage(

  fileInput('file1', 'Choose 1st File',
            accept=c('text/csv', 
                     'text/comma-separated-values,text/plain', 
                     '.fastq' , '.fasta')) ,

  renderText('result')
)

server <- function(input , output){

  output$result <- renderPrint({

    file.copy(from = input$file1$datapath, 
              to = 'H:/Shiny/FileTransfer/TestLocation', 
              recursive = FALSE,
              copy.mode = TRUE)

  })

}

shinyApp(ui = ui , server = server)

库（闪亮）
ui您的代码有两个问题。1） 永远不会执行
renderPrint
函数，请改用
verbatimtexoutput
。2） 
$datapath
中的文件名与原始文件不同，您应该指出
$name
中的原始名称，否则目标文件将具有类似
0
的名称或一些随机数

下面是修改后的代码，其中包含一些可能对您有用的额外信息。函数
file.path
用于指示目标目录以及原始文件名

库（闪亮）
ui您的代码有两个问题。1） 永远不会执行
renderPrint
函数，请改用
verbatimtexoutput
。2） 
$datapath
中的文件名与原始文件不同，您应该指出
$name
中的原始名称，否则目标文件将具有类似
0
的名称或一些随机数

下面是修改后的代码，其中包含一些可能对您有用的额外信息。函数
file.path
用于指示目标目录以及原始文件名

库（闪亮）
ui您的问题是什么？我的问题是应用程序没有传输文件。希望有人知道下面的答案是什么，我认为它解决了你的问题。你的问题到底是什么？我的问题是应用程序没有传输文件。希望有人知道下面的答案是什么，我想这能解决你的问题！很高兴这对你有用。杰瓦尼：谢谢！很高兴这对你有用。