R Shiny中反应式表达式中的全局赋值？

Question

假设我有一个用户上传的数据对象：

  data <- reactive({
    inFile <- input$file
    if (is.null(inFile)) return(NULL)
    data <- read.csv(inFile$datapath)
    return(data)
  })

假设我想删除数据集中的列。我想将其设置为全局分配，以便我可以多次运行 UI 并将每个效果保存在对象中。

dataset <- reactive({
    file1 <- data()
    file1[,input$deletecols] <<- NULL
    return(file1)
   }}
})

但是，当我运行它时，我得到了错误：

赋值左侧无效（NULL）

是什么导致了这个错误？如果全局分配不起作用，我怎样才能达到这种效果？

非常感谢。

Answer 1

您应该使用reactiveValues() 来满足这种需求，因为它允许您在应用程序的不同阶段创建和修改数据。

这是一个例子（未测试）：

values <- reactiveValues()

observe({
   inFile <- input$file
   if (!(is.null(inFile))){
     values$data <- read.csv(inFile$datapath)
   }
 })

observe({
  values$data[,input$deletecols] <- NULL
})