AD使用shinywidgets从pickerInput中删除“全选”操作按钮

如何解决AD使用shinywidgets从pickerInput中删除“全选”操作按钮

继续这里提到的讨论：

Remove "Select All" action button from pickerInput using shinywidgets

OP 有此代码并尝试删除选择/取消选择按钮之一：

pickerInput(inputId = "country_select_list",label = "Select countries",choices = country_list,multiple = TRUE,options = pickerOptions(actionsBox = TRUE))

答案是使用 CSS：

.bs-select-all {
  display: none;
}

这部分代码到底应该放在哪里才能让全选按钮消失？

解决方法

试试这个

library(gapminder)

my_css <- "
.bs-select-all {
  display: none;
}
.bs-deselect-all {
  width: 100%;
}
"

df <- gapminder
country_list <- unique(df$country)

ui <- fluidPage(
  tags$head(tags$style(HTML(my_css))),pickerInput(
    inputId = "country_list",label = "Select countries",choices = as.character(country_list),multiple = TRUE,options = pickerOptions(actionsBox = TRUE)
   
  )
)

server <- function(input,output) {}

shinyApp(ui,server)