Shiny中updatePrettyCheckboxGroup不应用格式化选项如何解决？

问题原因 #

shinyWidgets包的updatePrettyCheckboxGroup更新逻辑中，样式类参数不会自动继承UI端的初始配置，每次调用更新方法时如果未主动传入status、shape、inline这类样式参数，控件就会重置为默认样式，这就是你看到动态更新后样式丢失的原因。

解决方法 #

在调用updatePrettyCheckboxGroup时，同步传入所有需要保留的样式参数即可，修改后的服务端代码如下：

server <- function(input, output, session) {
  LineFile <- eventReactive(input$Line_Dataset, {
    read_csv(input$Line_Dataset$datapath, col_names = TRUE)
  })
  
  observeEvent(input$Line_Dataset, {
    elements_line_data <- colnames(LineFile())
    updatePrettyCheckboxGroup(
      session = session,
      inputId = "Broken",
      choices = elements_line_data,
      # 同步传入样式参数，和UI端配置保持一致
      inline = TRUE,
      status = "danger",
      shape = "round"
    )
  })
}

你提到的awesomeCheckboxGroup也遵循同样的逻辑，调用对应的updateAwesomeCheckboxGroup方法时，同步传入所有样式参数即可保留自定义样式。

内容的提问来源于stack exchange，提问作者JJGabe