R选择的Shiny输入全部不选择任何输入

Question

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

代码（UI）：

f = open("RockPaperScissors.txt", 'r')  
fwDict = {}  
for line in f:  
    k, v = line.strip().split('beats')

    # If we already have the key in the dictionary, just append to the list
    if k.strip() in fwDict:
        fwDict[k.strip()].append(v.strip())

    # If we don't have the key in the dict, create the new key-value pair as a list
    else:
        fwDict[k.strip()] = [v.strip()]


f.close()

任何可能出错的建议？数据只是一个普通的数据帧，输入一个正常的列表。

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