Ошибка при использовании file.choose () в Shiny Web App (развернуто онлайн) - PullRequest
Новая
       11

Ошибка при использовании file.choose () в Shiny Web App (развернуто онлайн)

0 голосов
/ 01 октября 2019

Я занимаюсь разработкой этого блестящего приложения, которому нужно отправить локальный файл на FTP. У меня проблемы с этим.

Я использую ftpUpload() для загрузки и file.choose(), чтобы получить путь к файлу: 

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

Это работало нормально, когда я запускаю приложение вмоя местная машина. Однако после того, как я развернул его в Интернете, он не работает. Это отключает подачу.

Я думаю, что проблемы на file.choose(), так как интерактивный диалог выбора файла не будет отображаться.

Кто-нибудь знает, как заставить file.choose() работатьили другие решения?

Я снова пытаюсь отправить локальный файл на FTP-сервер через онлайн-приложение Shiny.

Обновление:

Я проверил журнал и получаю эту ошибку: 

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

Я использую Windows. и эта ошибка не появится, когда я запускаю приложение локально с моего RStudio

1 Ответ

0 голосов
/ 02 октября 2019

Минимальное рабочее решение с 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)

  })


}

Надеюсь, это поможет.

...