Question

我正在尝试在反应函数之外得到变量“语料库”的值。我正在创建Shiny应用程序，必须在反应函数内定义readcsv＆lt; - read.csv（inFile $ datapath）。任何人都可以帮助我如何获得反应函数data1（）之外的语料库的数据帧值。

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")
)

Answer 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()

无法获取变量外部函数的值

1 个答案: