如何让R中的粘性导航栏闪闪发光？

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),  # 启用shinyjs包
  
  # 添加CSS样式
  tags$head(
    tags$style(HTML("
      .sticky {
        position: sticky;
        top: 0;
        background-color: #fff;
        z-index: 100;
      }
      
      .glow {
        animation: glow 1s infinite alternate;
      }
      
      @keyframes glow {
        0% { box-shadow: 0 0 5px #fff; }
        100% { box-shadow: 0 0 20px #ff0; }
      }
    "))
  ),
  
  # 创建粘性导航栏
  navbarPage(
    title = "闪闪发光的导航栏",
    id = "navbar",
    theme = "bootstrap",
    position = "fixed-top",
    tags$style("body { padding-top: 70px; }"),
    
    # 添加菜单项
    tabPanel("首页"),
    tabPanel("关于"),
    tabPanel("联系我们")
  )
)

server <- function(input, output) {
  
}

shinyApp(ui, server)

server <- function(input, output) {
  observe({
    runjs("
      // 获取导航栏元素
      var navbar = document.getElementById('navbar');
      
      // 添加闪闪发光的效果
      navbar.classList.add('glow');
      
      // 当导航栏被点击时，停止闪烁
      navbar.addEventListener('click', function() {
        navbar.classList.remove('glow');
      });
    ")
  })
}