这是上下文：
library(shiny)
liste_statut <- c("A","B","C")
ui <- shinyUI(fluidPage(uiOutput("testUI")))
server <- function(input, output, session) {
output$testUI <- renderUI({
navbarPage(
title = "Test",
tabPanel(icon = icon("users"), 'Test',
sidebarPanel(
# Statut
checkboxGroupInput("statut", "Statut", liste_statut, liste_statut),
checkboxInput('selectall_statut', 'Tout / Aucun', T))))
})
# observe({
# updateCheckboxGroupInput(
# session, 'statut', choices = liste_statut,
# selected = if (input$selectall_statut) liste_statut
# )
# })
}
shinyApp(ui = ui, server = server)
我想正确地使用我的复选框全部/无（在注释行中），因为在这种情况下我有一个“警告：如果错误：参数长度为零”。我应该把它放在哪里，或者我应该在 UI 部分正确地重新定义一些东西？
我很乐意使用 renderUI/uiOutput 选项（与“标准模式”ui/server 相反），因为将来我将添加一个身份验证模块，因此能够根据用户显示多个“面板”。
感谢并为我糟糕的英语感到抱歉:)。
以下对我有用：
library(shiny)
liste_statut <- c("A","B","C")
ui <- shinyUI(fluidPage(uiOutput("testUI")))
server <- function(input, output, session) {
output$testUI <- renderUI({
navbarPage(
title = "Test",
tabPanel(icon = icon("users"), 'Test',
sidebarPanel(
# Statut
checkboxGroupInput("statut", "Statut", liste_statut, liste_statut),
checkboxInput('selectall_statut', 'Tout / Aucun', T))))
})
observeEvent(input$selectall_statut,{
val <- liste_statut
if(!input$selectall_statut)
val <- character(0)
updateCheckboxGroupInput(
session, 'statut',
selected = val
)
})
}
我最初尝试selected = ifelse(input$selectall_statut, liste_statut, character(0))代替中间变量val。但是，ifelse()只返回一个值，而不是向量。
如果您要多次执行此操作，那么我会推荐一个自定义ifelse函数。也许类似于以下内容：
ifelse2 <- function(test, yes, no){
if(test)
return(yes)
return(no)
}
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句