R Shiny 可以reactive() 函数返回多个值吗？

Question

我正在使用反应函数来同时做两件事：

1. 读取上传的csv文件；
2. 获取文件名

看下面的代码：

 file_info<-reactive({

     filename <- file.choose()
     data <- read.csv(filename, skip=1)
     file_name <- basename(filename)

   })

然而，file_info() 只包含 file_name，这迫使我编写另一个反应式函数来上传数据：

 Raw<- reactive({
     inFile <- input$file1

     if (is.null(inFile))
      return(NULL)
    Raw<-read.csv(inFile$datapath, header=TRUE ,sep=",") 
 })

我认为应该有另一种有效的方法来做到这一点，提前感谢您的任何建议。

Answer 1

R 中的返回值意味着包含在单个对象中，无论是在function还是在reactive 。 但是，我建议将您的内容收集在列表中，并从临时变量中的反应式中获取返回值。 然后，从这个临时变量中得到你想要的。 像：

myReactive({
  # does stuff

  return(
    list(
      val1 = val1,
      val2 = val2
    )
  )
}}

.tmp <- myReactive()
x <- .tmp$val1
y <- .tmp$val2