具有用户输入闪亮的子集数据框答案

【问题标题】：Subset dataframe with userinput shiny具有用户输入闪亮的子集数据框
【发布时间】：2016-04-01 10:11:42
【问题描述】：

我想根据用户输入对数据框进行子集化

...
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，效果很好。

【问题讨论】：

标签： r shiny shiny-server

【解决方案1】：

你可以试试

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

【讨论】：