闪亮的动态用户界面，带有清晰的复选框按钮-解网

问：

如何在具有动态 UI 的应用程序中添加“清除”按钮以将复选框值重置为 NULL？

示例数据：

df <- data.frame(
  "Group" = c("Group A", "Group B", "Group A", "Group A", "Group B"),
  "Name" = c("Bob", "Paul", "Peter", "Emma", "John"),
  "Value" = seq(1,10, length.out=5),
  stringsAsFactors = F
)

df
    Group  Name Value
1 Group A   Bob  1.00
2 Group B  Paul  3.25
3 Group A Peter  5.50
4 Group A  Emma  7.75
5 Group B  John 10.00

我为每个值创建一个选项卡和一个复选框：GroupName

library(shiny)

# UI
ui <- fluidPage(
  mainPanel(
    uiOutput('mytabs')
  )
)

# SERVER
server <- function(input, output, session) {

  Tabs_titles = unique(df$Group)

  # Dynamic UI
  output$mytabs <- renderUI({
    myTabs <- lapply(Tabs_titles,
                     function(x){
                       tabPanel(title = x,
                                checkboxGroupInput(inputId = paste0("checkboxID_", x),
                                                   label = "My Checkbox",
                                                   choices = df %>% subset(Group == x) %>% pull(Name),
                                                   selected = df %>% subset(Group == x) %>% pull(Name)
                                ),
                                checkboxInput(paste0("clear_", x), "Clear"),
                                tableOutput(paste0("my_Table_", x))
                       )
                     }
    )

    do.call(tabsetPanel, myTabs)

  })


  observe(
    lapply(Tabs_titles,
           function(x){
             checked_names <- reactive({input[[paste0("checkboxID_", x)]]})

             # Table
             output[[paste0("my_Table_", x)]] <-renderTable({
               df %>%
               subset(Group == x & Name %in% checked_names())
             })

             # Clear button here
             observe({
               if(req(input[[paste0("clear_", x)]]) == TRUE){
                 updateCheckboxGroupInput(
                  session,
                  paste0("checkboxID_", x),
                  choices = df %>% subset(Group == x) %>% pull(Name),
                  selected = NULL
                )
               }
             })
           }
    )
  )
}


shinyApp(ui, server)

但是当选中时，该框不会触发任何内容。Clear

R 闪亮的动态-UI

编辑 2此概念验证示例按预期工作。因此，您的代码中可能存在第二个问题，即与工作解决方案交互。正如我之前可能提到的：使用模块会让你的生活更轻松：每个模块将负责清除自己的，因此索引不会成为问题。checkboxGroupInput

library(shiny)

ui <- fluidPage(
   titlePanel("Clear checkboxGroup Test"),
   sidebarLayout(
      sidebarPanel(
        actionButton("clear", "Clear")
      ),
      mainPanel(
        checkboxGroupInput("group", "The Beatles", choices=c("John", "Paul", "George", "Ringo"))
      )
   )
)

server <- function(input, output, session) {
  observeEvent(input$clear, {
    updateCheckboxGroupInput(session, "group", choices=c("John", "Paul", "George", "Ringo"), selected=NULL)
  })
}

shinyApp(ui = ui, server = server)

闪亮的动态用户界面，带有清晰的复选框按钮

Shiny dynamic UI with clear checkbox button

评论

评论