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

【问题标题】：R Shiny Dashboard, change color for all hyperlinksR Shiny Dashboard，更改所有超链接的颜色
【发布时间】：2018-11-21 02:58:01
【问题描述】：

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

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")
  })

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

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

【问题讨论】：

标签： r shiny shinydashboard

【解决方案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) {

  }
)

【讨论】：