與userinput閃亮

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