R Shiny Dashboard，更改所有超链接的颜色

Question

我创建了一些值框，其中包含指向应用内不同选项卡的超链接。

ui

tags$script(HTML("
    var openTab = function(tabName){
                 $('a', $('.sidebar')).each(function() {
                 if(this.getAttribute('data-value') == tabName) {
                 this.click()
                 };
                 });
                 }
                 "))

服务器

  output$tplot <- renderValueBox({
     valueBox(
     paste0(sum(rowSums(x)>0)),
     tags$p(a("Total", onclick = "openTab('metrics')", href="#"), 
     style = "color: white;"), 
     icon = icon("boxes"),
     color = "navy")
  })

效果很好，但超链接始终是钢蓝色，这限制了我对值框可读颜色的选择。

有没有办法改变超链接的颜色？有没有办法全局设置超链接颜色？

Answer 1

超链接有标签 <a>。您可以通过对该标签应用 css 来全局更改超链接颜色。这是最小的例子 -

library(shiny)

shinyApp(
  ui = fluidPage(
    tags$head(tags$style(HTML("a {color: red}"))),
    tags$a("click here"),
    br(),
    tags$a("click here as well")
  ),
  server = function(input, output, session) {

  }
)

R Shiny Dashboard，更改所有超链接的颜色

R Shiny Dashboard, change color for all hyperlinks

r

shiny

shinydashboard