从闪亮的R中的inputtextarea读取事件响应输入答案

【问题标题】：Reading eventreactive input from inputtextarea in shiny R从闪亮的R中的inputtextarea读取事件响应输入
【发布时间】：2016-11-29 08:57:31
【问题描述】：

我正在使用 textareaInput 读取仪表板中的数据。我试图根据下面的 gsub 选项将其转换为向量。但是当我执行此操作时，它会将输出作为所有行返回为假。我在 rdreport 数据框中有数据，列为 Var - 其中值为 Mark、Mark1、Mark2 等。

subset_dataset <-
eventReactive(input$go, {(rdreport$Var %in% (paste0('c("',(gsub('[\r\n]', '","', input$txt)),'")')))})

(paste0('c("',(gsub('[\r\n]', '","', input$txt)),'")')) --> 在这一部分中，我试图将 textareaInput 转换为向量。 textarea 的输入以 Mark 和 Mark1 形式给出，由 \n 分隔。但是代码不起作用。

有人可以帮忙吗？

【问题讨论】：

尝试使用(strsplit(x =input$txt,split = '[\r\n]' )) - 将字符串拆分为向量。粘贴而不是评估'c（...）'的代码，它会创建简单的文本字符串
谢谢，现在我可以看到一个向量输入，但是当我在 textAreaInput 中输入多个值时，它会将所有行返回为 false，如果我只输入一个，则会显示正确的结果。可能是什么问题？

标签： r shiny flexdashboard

【解决方案1】：

不知道你的代码哪里出了问题

试试看

library(shiny)
ui=shinyUI(fluidPage(
textAreaInput("txt",label = ""),
actionButton("go","go"),
textOutput("rez")
  )

  )

server=function(input,output){

  DF=c("A","B","CC","DT","HJKH") # TEST DATA
  subset_dataset <-eventReactive(input$go, {
    DF %in% unlist(strsplit(x =input$txt,split = '[\r\n]' ))
    })

  output$rez=renderText(subset_dataset())
}

shinyApp(ui,server)

【讨论】：

工作就像一个魅力！谢谢。