从闪亮的 R 中的 inputtextarea 读取 eventreactive 输入

Question

我正在使用 textareaInput 读取仪表板中的数据。当我执行此操作时，我试图根据 gsub 选项 below.but 将其转换为向量 returns 输出为所有行都为 false。我在 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 的输入由 \n 分隔的 Mark 和 Mark1 给出。但是代码不起作用。

有人可以帮忙吗？

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)

从闪亮的 R 中的 inputtextarea 读取 eventreactive 输入

Reading eventreactive input from inputtextarea in shiny R

r

shiny

flexdashboard