运行闪亮的应用程序时出错“无法打开连接”

正如 Vishesh 所说，我认为您可能需要使用readRDS而不是load，但这里有一个shiny应用程序允许所有三个：csv、rds 或 rda。

首先，快速调试设置，以便我们测试三种类型的文件：

write.csv(mtcars, file="mt.csv")
saveRDS(mtcars, file="mt.rds")
save(mtcars, file="mt.rda")

（对于生产应用程序当然不需要。）

现在的应用程序：

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      fileInput("file1", "Choose CSV, rda, or rds File"),
      tags$hr(),
      checkboxInput("header", "Header (if CSV)", TRUE),
      uiOutput("rda_objname")
    ),
    mainPanel(
      tableOutput("contents")
    )
  )
)

server <- function(input, output) {
  file1_ <- reactive({
    req(input$file1)
    # might also work with input$file1$type, which is something like
    # 'application/vnd.ms-excel', though for me in testing this was
    # blank for RDS/RDA ...
    a <- input$file1
    a$ext <- tolower(tools::file_ext(input$file1$name))
    # ... though length==1 since we did not do multiple = TRUE
    a$ext <- ifelse(a$ext == "rdata", "rda", a$ext)
    a
  })
  rawdat <- reactive({
    req(file1_())
    inFile <- file1_()
    # if we ever do fileInput(..., multiple = TRUE), this will need to
    # be on a vector of length > 1
    if ("csv" == inFile$ext) {
      return( read.csv(inFile$datapath, header = input$header) )
    } else if ("rds" == inFile$ext) {
      return( readRDS(inFile$datapath) )
    } else if (inFile$ext == "rda") {
      e <- new.env(parent = emptyenv())
      load(inFile$datapath, envir = e)
      return( e )
    } else return( NULL )    
  })
  output$rda_objname <- renderUI({
    # this only displays a select-input if the input file is valid and
    # an Rdata-looking file, otherwise the select-input is absent
    req(file1_())
    inFile <- file1_()
    if (inFile$ext == "rda") {
      obj <- isolate(ls(envir = rawdat()))
      selectInput("objname", "RDA object name",
                  choices = c("Select object name ...", obj))
    } else return( NULL )
  })
  dat <- reactive({
    req(rawdat())
    inFile <- isolate(file1_())
    if (inFile$ext == "rda") {
      req(input$objname, input$objname %in% ls(envir = rawdat()))
      return( get(input$objname, envir = rawdat()) )
    } else return( rawdat() )
  })
  output$contents <- renderTable({
    req(dat())
    dat()
  })
}

shinyApp(ui, server)

如果您在 中选择 CSV 或 RDS 文件fileInput，则它会自动呈现表格。如果它以.rdaor结尾.rdata（不区分大小写），那么它将创建一个选择器来选择 rda 文件中的哪个对象（因为它们确实存储了具有命名对象的环境，而不是单个对象）。

演示：使用 CSV 或 RDS：

使用 RDA 文件（其中有一个对象，mtcars：

您的代码中的一些其他更改：

• if (is.null(...))我没有使用，而是使用了更shiny风格化的req(...)方法；当事情不像您（开发人员）预期的那样进行时，它会更加用户友好；
• 我故意设计了isolate一些可能不会被孤立的东西，但我想要一条清晰的反应路径；如果 A 依赖于 B 并且 C 依赖于 A 和 B，则有可能，当 A 更新时，C 将更新，然后 B 将更新，导致 C 再次更新......可能令人眼花缭乱，但这是多个依赖路径的结果.
• 因为这接受两种类型的存储（一个对象和多个），所以我需要两步来检索数据：rawdat()可能是环境 (RDA) 或实际对象；dat()将始终是对象或NULL（如果未选择 RDA 和对象名称）。
• 我不需要else return(NULL)in output$rda_objname，我只是为了在这个例子中清晰和明确的代码而把它放在那里；我可能不会在我的生产代码中使用它。
• 我return这里也用了很多；从技术上讲，在任何这些用途中都不需要它，同样我只是在这个例子中明确说明。