使用以下代码,一列 data.dable
可以选择。
mtcars_dt <- data.table(mtcars)
selected_cols <- c("mpg")
mtcars_dt[ ,..selected_cols]
我想在 Shiny 的响应式(Reactive)表达式中做同样的事情。然而,它的行为很奇怪。这是一个可重现的例子
library(shiny)
library(data.table)
mtcars_dt <- data.table(mtcars)
ui <- basicPage(
selectInput("var", "Select variable", names(mtcars)),
textOutput("out1"),
textOutput("out2")
)
server <- function(input, output) {
output$out1 <- renderText({
mtcars[1:3 ,input$var]
})
output$out2 <- renderText({
mtcars_dt[1:3 , ..input$var]
})
}
shinyApp(ui, server)
当我运行这个应用程序时,第二个输出是一个字符串,其中包含我想要选择的列的名称。
为什么会这样?我该如何解决?
最佳答案
请检查以下选项:
library(shiny)
library(data.table)
mtcars_dt <- data.table(mtcars)
ui <- basicPage(
selectInput("var", "Select variable", names(mtcars)),
textOutput("out1"),
textOutput("out2")
)
server <- function(input, output) {
output$out1 <- renderText({
mtcars[1:3, input$var]
})
output$out2 <- renderText({
cols <- input$var
unlist(mtcars_dt[1:3, ..cols])
# 1. alternative
# mtcars_dt[1:3][[input$var]]
# 2. alternative
# mtcars_dt[1:3, get(input$var)]
# 3. alternative
# unlist(mtcars_dt[1:3, .SD, .SDcols = input$var])
# 4. alternative
# unlist(mtcars_dt[1:3, input$var, with = FALSE])
})
}
shinyApp(ui, server)
关于r - 如何在 Shiny 的响应式(Reactive)表达式中使用 data.table?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57737697/