R全部选择闪亮输入不会选择任何输入

Question

使用R Shiny构建交互式仪表板，我想默认选择输入中的所有选项。 由于某些原因，在运行该应用程序时，所有选项仍然被取消选择。

代码（UI）：

library(shiny)

data <- read.csv2("data.csv")
input <- as.list(data$v1)

checkboxGroupInput("input",
                   label = "input",
                   choices = input,
                   selected = input)

有什么建议可能会出问题吗？ 数据只是普通数据帧，输入普通列表。

Answer 1

即使对我认为没有必要的as.list ，也对我来说一切都很好。 可能与您使用input的名称冲突

rm(list = ls())
library(shiny)

select1 <- unique(mtcars$cyl)

ui <- fluidPage(checkboxGroupInput("select1",label = "input",choices = select1,selected = select1))
server <- function(input, output, session) {}
runApp(list(ui = ui, server = server))