以下是我的shiny 应用程序的编辑版本:
library(shiny)
library(bslib)
ui <- tagList(
fluidPage(
titlePanel(""),
tags$head(tags$style(HTML(
"
.navbar-default {
color: red !important;'
}
.navbar-default .navbar-nav > .active > a,
.navbar-default .navbar-nav > li > a:hover {
color: red !important;
}
.navbar-default .navbar-nav > li > a {
color: pink !important;
}
"
))),
navbarPage(
windowTitle = "App Name",
theme = bs_theme(bootswatch = "flatly",
base_font = font_google("Lato"),
primary = "#333F50",
bg = "white",
fg = "#D67540"),
title = "I am the title",
selected = "Main Tab 1",
tabPanel(title = "Main Tab 1",
fluidPage(
sidebarLayout(
sidebarPanel(textInput(inputId = "text_input", label = "Enter text:")),
mainPanel(textOutput(outputId = "text_output"))
)
)
),
tabPanel(title = "Main Tab 2",
fluidPage(
fluidRow(
column(7,
navlistPanel(
tabPanel("Tab 1"),
tabPanel("Tab 2"),
tabPanel("Tab 3"),
widths = c(2, 10),
well = FALSE)
)))
)
)
)
)
server <- function(input, output){
output$text_output <- renderText(input$text_input)
}
shinyApp(ui, server)
当前,"Main Tab 1"和"Main Tab 2"的文本在悬停/选中时为粉色和红色.
我还想对"Tab 1"、"Tab 2"和"Tab 3"应用类似的更改-对于这些,我希望在悬停/选中时文本 colored颜色 从青色变为黑色,从白色变为橙色.
我的理解是,color
值旁边的!important
强制所有链接继承相同的属性,但我希望导航栏标题中的链接和导航药丸中的链接使用不同的 colored颜色 .
我在这里问了一个相关的问题: How to change text colour of navbarPage links when hovered on (in shiny app)?个
我如何才能做出这样的改变?
如有任何帮助,我们不胜感激:)
注意: colored颜色 是故意不美观的(我还在学习,只是用它们来区分)