r - 将变量名传递给 fre 命令

Question

我正在尝试将一组变量传递给选择输入，并使用它的名称来expss::fre命令。

我有带有列名及其标签的对象，例如'myvars'：

a1_1, "Do you like apples?"
a1_2, "Do you like oranges?"

我正在使用它们：

selectInput(vars, "Select variable", myvars)

然后，在“服务器”部分，我想用它来生成简单的频率表。

output$view <- renderTable( {
        fre(input$variable)
}

问题是fre我必须使用数据集名称传递变量：

fre(data$a1_1)

所以我尝试了eval, quo,!!等等paste0("data$",input$vars)，但没有成功。

当我尝试switch：

switch(input$vars, "a1_1"=fre(data$a1_1), "a1_2"=fre(data$a1_2))

它工作正常，但我需要更灵活的解决方案。如何做好这件事？

score 1 · Accepted Answer

以下代码应该可以解决问题：

output$view <- renderTable({
        fre(data[[input$vars]])
})

1 回答 1