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