光沢のあるinputtextareaからのイベントリアクティブ入力を読み込むR

Question

ダッシュボードでデータを読み取るためにtextareaInputを使用しています。私はそれをgsubオプションに基づいてベクトルに変換しようとしました。しかし、これを実行すると、すべての行がfalseとして返されます。値がマーク、MARK1、MARK2など

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

(paste0('c("',(gsub('[\r\n]', '","', input$txt)),'")'))された - - 私はヴァールとして列とrdreportデータフレーム内のデータを持っている>この部分では、私はベクトルに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)