R 当用户将鼠标悬停在闪亮仪表板的标题部分时,禁用颜色更改
我在下面的shinydashoboard中对边栏和标题进行了一些修改。我想知道,当用户将鼠标悬停在标题上时,是否有可能停用该功能,使标题的颜色更为粗体R 当用户将鼠标悬停在闪亮仪表板的标题部分时,禁用颜色更改,r,shiny,shinydashboard,R,Shiny,Shinydashboard,我在下面的shinydashoboard中对边栏和标题进行了一些修改。我想知道,当用户将鼠标悬停在标题上时,是否有可能停用该功能,使标题的颜色更为粗体 library(shiny) library(shinydashboard) library(shinydashboardPlus) library(shinyjs) mytitle <- paste0("Life, Death & Statins") dbHeader <- dashboardHeader
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;}"))
谢谢,但是没有办法完全取消悬停时的颜色变化吗?在我编辑的示例中,我可能会使用相同颜色的方法,但悬停时它看起来会变灰。对不起,我还没有找到那个方法。我的建议是选择相同的颜色或不选择。谢谢,但是没有办法完全停用悬停时的颜色更改吗?在我编辑的示例中,我可能会使用相同颜色的方法,但悬停时颜色看起来会变灰。对不起,我还没有弄清楚这一点。我的建议是选择相同的颜色或没有。