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

Question

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

...
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,]

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

Subset dataframe with userinput shiny

r

shiny

shiny-server