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

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

是否可以更改超链接的颜色？有没有办法全局设置超链接的颜色？

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，更改所有超链接的颜色

1 个答案: