R Shiny input selected all 不选择任何输入

Question

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

代码（用户界面）：

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))