R 更新闪亮中actionlink的颜色

我想改变颜色的actionLink一旦被点击。我找不到任何能做到这一点的职位

我发现：

但这些都没有帮助。以下是来自第一个链接的答案的示例代码（由@Julien Navarre编写）

库（闪亮）
图书馆（shinyjs）
shinyApp(
ui=shinyUI(
fluidPage（useShinyjs（），
actionLink（“按钮”、“显示附加”），
隐藏（div（id='text\u div'，逐字输出（“text”））
)
),
服务器=功能（输入、输出、会话）{
ObserveeEvent（输入$按钮{
切换（'text\u div'）
输出$text一种方法是使用css和{shinyjs}的
addClass
，
removeClass
：

library(shiny)
library(shinyjs)

shinyApp(
  ui = shinyUI(
    fluidPage(useShinyjs(),
              
              tags$head(
                tags$style(HTML("
                  a.action-button {
                    color: #00ff00;
                  }
                  a.action-button.red {
                    color: #ff0000;
                  }"))
              ),
              
              actionLink("button", "Show additional"),
              
              hidden(div(id='text_div', verbatimTextOutput("text")))
    )
  ),
  
  server = function(input, output, session){
    
    observeEvent(input$button, {
      
      if (input$button %% 2 == 1) {
        txt <- "Hide Additional"
        shinyjs::addClass("button", "red")
      } else {
        txt <- "Show Additional"
        shinyjs::removeClass("button", "red")
      }
      
      toggle('text_div')
      output$text <- renderText({"Additional"})

      updateActionButton(session, "button", label = txt)
    })
    
  }
)

库（闪亮）
图书馆（shinyjs）
shinyApp(
ui=shinyUI(
fluidPage（useShinyjs（），
标签$head(
标签$style（HTML（“
a、 动作按钮{
颜色：#00ff00；
}
a、 动作按钮。红色{
颜色：#ff0000；
}"))
),
actionLink（“按钮”、“显示附加”），
隐藏（div（id='text\u div'，逐字输出（“text”））
)
),
服务器=功能（输入、输出、会话）{
ObserveeEvent（输入$按钮{
如果（输入$button%%2==1）{
txt工作得很有魅力！非常感谢！！
library(shiny)
library(shinyjs)

shinyApp(
  ui = shinyUI(
    fluidPage(useShinyjs(),
              
              tags$head(
                tags$style(HTML("
                  a.action-button {
                    color: #00ff00;
                  }
                  a.action-button.red {
                    color: #ff0000;
                  }"))
              ),
              
              actionLink("button", "Show additional"),
              
              hidden(div(id='text_div', verbatimTextOutput("text")))
    )
  ),
  
  server = function(input, output, session){
    
    observeEvent(input$button, {
      
      if (input$button %% 2 == 1) {
        txt <- "Hide Additional"
        shinyjs::addClass("button", "red")
      } else {
        txt <- "Show Additional"
        shinyjs::removeClass("button", "red")
      }
      
      toggle('text_div')
      output$text <- renderText({"Additional"})

      updateActionButton(session, "button", label = txt)
    })
    
  }
)