r - 从闪亮的R中的inputtextarea读取事件响应输入

Question

我正在使用 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 分隔。但是代码不起作用。

有人可以帮忙吗？

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