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

基于this回答

UI：

uiOutput("button")

服务器：

    output$button <-  renderUI({
          if(is.na(data_moment[1,c("facebook")])){
            actionButton(inputId= "bell","", 
                         style = "color: white; 
                         background-color: ...; 

                         ") 
   disable("bell")
          }
else {
actionButton(inputId= "bell","", 
                         style = "color: white; 
                         background-color: blue; 
                         ")}

    })

更改动作按钮的颜色

1 个答案: