在 Shiny Web App 中使用 file.choose() 时出错（在线部署）答案

【问题标题】：Error when using file.choose() in Shiny Web App (deployed online)在 Shiny Web App 中使用 file.choose() 时出错（在线部署）
【发布时间】：2019-09-30 22:35:02
【问题描述】：

我正在开发这个需要将本地文件推送到 FTP 的闪亮应用程序。我遇到了这个问题。

我用ftpUpload()上传，file.choose()抓取文件路径：

ftpUpload(file.choose(new = FALSE), "ftp.com/Abc", userpwd)

当我在本地机器上运行该应用程序时，它运行良好。但是，在我将它部署到网络上之后，它就不起作用了。它会断开发球。

我认为问题出在file.choose()，因为交互式文件选择对话框不会出现。

有谁知道如何让file.choose() 工作或任何其他解决方案？

我再次尝试通过在线 Shiny App 将本地文件推送到 FTP 服务器。

更新：

我检查了日志，我得到了这个错误：

Warning in file(what, "rb") : cannot open file 'xt': No such file or directory
Warning: Error in file: cannot open the connection

我正在使用窗户。当我从我的 RStudio 本地运行应用程序时，不会出现此错误

【问题讨论】：

能否将具有特定错误的服务器日志包含到您的运行实例中？
您知道如何查看在线应用程序的特定错误吗？此错误仅在应用在线时存在。目前，当我尝试调用该函数时，整个应用程序已断开连接。
在您的服务器中的 ShinyApps 中会有一个名为“logs”的文件夹。每当启动实例时，都会生成一个日志，该日志将转储到您在本地运行应用程序时在控制台中看到的内容。查看文件并使用错误消息更新您的问题。
谢谢！刚刚更新错误。

标签： r shiny ftp shinyapps

【解决方案1】：

fileInput 的最小工作解决方案。

# ui.R
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      fileInput("myFile", "Choose your File")
        )
    ),
    mainPanel(
    )
  )
)

# server.R
server <- function(input, output, session) {

   observeEvent(input$myFile,{
    selectedFile <- input$myFile

    if (is.null(selectedFile))
      return(NULL)

      # Your code
      ftpUpload(selectedFile$datapath, "ftp.com/Abc", userpwd)

  })


}

希望这会有所帮助。

【讨论】：