r - 更改操作按钮的颜色

Question

我想知道是否可以在 observeEvent 中更改 actionButton 的颜色。

在 ui 中我有:

actionButton("bell","",icon=icon("bell"),
                           class = "btn action-button",
                           style = "color: white;
                           background-color: blue")

在 server.R 中，我的 observeEvent 是:

observeEvent(data_moment[1,c("facebook")]=="NA", {
    disable("bell")
})

我想要什么:

如果 data_moment[1,c("facebook")]=="NA" 我想禁用响铃按钮，并将其颜色设置为灰色。

你知道我该怎么做吗？

Answer 1

只需在您的 css 文件中为禁用的按钮添加一个 css 规则

.btn.disabled {
    background-color: red;
}

如果您没有任何单独的 css 文件，您可以使用这样的脚本标签将其添加到您的 UI

library(shiny)
runApp(shinyApp(
  ui = fluidPage(
    shinyjs::useShinyjs(),
    tags$style(".btn.disabled {
    background-color: red;
    }"),
    actionButton("test", "Test"),
    actionButton("submit", "Choose")
  ),
server = function(input, output, session) {
  observeEvent(input$submit, {
    shinyjs::disable("test")
  })
  }
))