用户输入闪亮的子集数据框

Question

我想基于userinput

对数据框进行子集化

...
df <- eventReactive(input$button,{ 
  df2 <- read.csv(foo(), sep = ";")
  df2$date <- as.Date.character(df2$date,  format = '%d.%m.%Y') 

  #input$Main2 element of (a,b,c)
  input1<- input$Main2

 #Does not work:
 df3 <- subset(df2, input1 %in% input$Main2_1)
 #Works:
  df3 <- subset(df2, a %in% input$Main2_1)

  df3
  })
....

其中input1是单个变量名称。如果我直接写变量名而不是input1，它可以正常工作。

Answer 1

你可以尝试

df3 <- df2[df2[[input1 ]]%in% input$Main2_1,]