如何解决如何在 R Shiny 中提供应保存提交文件的位置?
下面的代码获取用户的输入文件(filename1)并将其上传到同一目录中的同一目录中,并在同一目录中使用新名称(例如:userFile_filename1)。我想将输入文件上传到一个单独的位置。在 R Shiny 中,如何设置我选择的路径?
library(shiny)
ui <- shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
fileInput('file1','Select file to upload' )
),mainPanel(
h4('List of uploaded files:'),verbatimTextOutput('fileList')
)
))
)
server <- shinyServer(function(input,output) {
observe({
if (is.null(input$file1) ) { return(NULL) }
file.copy(from = input$file1$datapath,to = paste0('userFile_',input$file1$name ) )
})
output$fileList <- renderText({
input$file1
dir(pattern = 'userFile_')
})
})
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。