Question

我找到了解决问题的答案：R Shiny Save to Server

但我不理解/home/user必须是您的闪亮应用具有写入权限的文件夹的说明。我的问题是，现在应用程序说：

readChar中的警告（con，5L，useBytes = TRUE）：
  无法打开压缩文件＆＃39; / home / user＆＃39;，
  可能的原因＆＃39;没有这样的文件或目录＆＃39;或readChar中的警告（con，5L，useBytes = TRUE）：
  无法打开压缩文件＆＃39; / home / user＆＃39;，可能的原因＆＃39;权限被拒绝＆＃39;

有人可以帮助我吗？

好的我解决了它的上半部分，但最后一部分仍有问题：＃加载RData文件并更新输入

     # render a selectInput with all RData files in the specified folder
  output$load <- renderUI({
    choices <- list.files("C:/Users/Andreas/home/user/", pattern="*.RData")
    selectInput("input_file", "Select input file", choices)
  })
  # Save input$bins when click the button
  observeEvent(input$save, {
    validate(
      need(input$save_file != "", message="Please enter a valid filename")
    )
    bins <- input$bins
    save(bins, file=paste0("C:/Users/Andreas/home/user/", input$save_file))
    choices <- list.files("C:/Users/Andreas/home/user/", pattern="*.RData")
    updateSelectInput(session, "input_file", choices=choices)
  })
  # Load an RData file and update input
  observeEvent(input$input_file, {
    load(paste0("C:/Users/Andreas/home/user/",input$input_file))
    updateSliderInput(session, "bins", value=bins)
  })

有人能帮助我吗？我使用的是Windows 7

了解R Shiny保存到服务器：＆＃39;权限被拒绝＆＃39;错误

0 个答案: