Question

我正在使用textareaInput来读取仪表板中的数据。我试图将它转换为基于下面的gsub选项的向量。但是当我执行它时，它将输出作为所有行返回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)),'")')) - ＆gt;在这部分我试图将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)

从有光泽的R

1 个答案: