我正在开发一个shiny 的应用程序，在其中我使用bslib包的主题.但是，当我禁用如下所示的输入时，它将变得不可读:
library(shiny)
library(bslib)
ui <- page_fluid(
shinyjs::useShinyjs(),
theme = bs_theme(preset = "shiny"),
selectizeInput("id1", "selection unreadable", choices = 1:3, multiple = T)
)
server <- function(input, output, session) {
observeEvent(input$id1, ignoreInit =T, {
shinyjs::disable('id1')
})
}
shinyApp(ui, server)
有没有一种方法，我仍然可以使用bs_theme(preset = "shiny")，但对禁用的输入具有更透明的外观，如默认主题:
ui <- fluidPage(
shinyjs::useShinyjs(),
selectInput("id1", "selection readable", choices = 1:3, multiple = T)
)
server <- function(input, output, session) {
observeEvent(input$id1, ignoreInit =T, {
shinyjs::disable('id1')
})
}
shinyApp(ui, server)
