R 当用户将鼠标悬停在闪亮仪表板的标题部分时,禁用颜色更改

R 当用户将鼠标悬停在闪亮仪表板的标题部分时,禁用颜色更改,r,shiny,shinydashboard,R,Shiny,Shinydashboard,我在下面的shinydashoboard中对边栏和标题进行了一些修改。我想知道,当用户将鼠标悬停在标题上时,是否有可能停用该功能,使标题的颜色更为粗体 library(shiny) library(shinydashboard) library(shinydashboardPlus) library(shinyjs) mytitle <- paste0("Life, Death & Statins") dbHeader <- dashboardHeader

我在下面的shinydashoboard中对边栏和标题进行了一些修改。我想知道,当用户将鼠标悬停在标题上时,是否有可能停用该功能,使标题的颜色更为粗体

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(shinyjs)
mytitle <- paste0("Life, Death & Statins")
dbHeader <- dashboardHeaderPlus(
  titleWidth = "0px",
  tags$li(a(
    div(style = "margin-left:-15px;margin-bottom:-83px;margin-top:-15px;padding: 0px 1190px 0px 0px ; width: 290px;",
        img(src = 'download.png', height = "125px",width="232px")),
    div(style="display: inline;margin-top:-35px; padding: 0px 90px 0px 1250px ;font-size: 58px ;color: black;font-family:Times-New Roman;font-weight: bold; width: 500px;",HTML(mytitle))
    
  ),
  class = "dropdown")
  
)

shinyApp(
  ui = dashboardPagePlus(
    header = dbHeader,
    sidebar = dashboardSidebar(width = "0px",
                               sidebarMenu(id = "sidebar" # id important for updateTabItems
                               )           ),
    body = dashboardBody(
      
      useShinyjs(),
      tags$script(HTML("$('body').addClass('fixed');")),
      
      tags$head(tags$style(".skin-blue .main-header .logo { padding: 0px;}")),
      tags$head(tags$style(HTML('
        /* logo */
        .skin-blue .main-header .logo {
                              background-color: #faf0e6;
                              }

        /* logo when hovered */
        .skin-blue .main-header .logo:hover {
                              background-color: #faf0e6;
                              }

        /* navbar (rest of the header) */
        .skin-blue .main-header .navbar {
                              background-color: #faf0e6;
                              }        

        
                              
        /* body */
                                .content-wrapper, .right-side {
                                background-color: #faf0e6;
                                }                     
                              '))),
      tags$head(tags$style(".skin-blue .main-header .navbar:hover {background-color:#faf0e6 ;}"))
      
      
      
    )
    
  ),
  server<-shinyServer(function(input, output,session) { 
    hide(selector = "body > div > header > nav > a")
    
    
    
  }
  )
)
库(闪亮)
图书馆(shinydashboard)
图书馆(shinydashboardPlus)
图书馆(shinyjs)

mytitle您可以通过以下方式进行控制:

tags$head(tags$style(".skin-blue .main-header .navbar:hover {background-color: orange;}"))

您可以通过以下方式进行控制:

tags$head(tags$style(".skin-blue .main-header .navbar:hover {background-color: orange;}"))

谢谢,但是没有办法完全取消悬停时的颜色变化吗?在我编辑的示例中,我可能会使用相同颜色的方法,但悬停时它看起来会变灰。对不起,我还没有找到那个方法。我的建议是选择相同的颜色或不选择。谢谢,但是没有办法完全停用悬停时的颜色更改吗?在我编辑的示例中,我可能会使用相同颜色的方法,但悬停时颜色看起来会变灰。对不起,我还没有弄清楚这一点。我的建议是选择相同的颜色或没有。