无法获取函数外变量的值答案

【问题标题】：Not able to fetch value of variable outside function无法获取函数外变量的值
【发布时间】：2017-05-05 03:31:14
【问题描述】：

我正在尝试在反应函数之外获取变量“语料库”的值。我正在创建 Shiny 应用程序，其中必须在反应函数中定义 readcsv

server.R

data1 <- reactive({
inFile <- input$file1
if (is.null(inFile)){
return(NULL)
}
#Read csv file
readcsv <- read.csv(inFile$datapath)

#Create Corpus
corpus <- Corpus(VectorSource(readcsv$Tweets))

})

ui.R

fileInput("file1", "Choose CSV File",
accept = c(
"text/csv",
"text/comma-separated-values,text/plain",
".csv")
)

【问题讨论】：

您想让data1 的值成为corpus 的值吗？
所以你是说通过执行 corpus

标签： r shiny shinydashboard

【解决方案1】：

下面会把Corpus(...)的输出放到data1中

data1 <- reactive({
    inFile <- input$file1
    if (is.null(inFile)){
        return(NULL)
    }
    #Read csv file
    readcsv <- read.csv(inFile$datapath)

    #Create Corpus
    Corpus(VectorSource(readcsv$Tweets))
})

那么你就可以在server的任何地方使用它了

corpus <- data1()

【讨论】：