如何在悬停时显示侧边栏而不是在 Shiny 中单击？答案

【问题标题】：How to make appear sidebar on hover instead of click in Shiny?如何在悬停时显示侧边栏而不是在 Shiny 中单击？
【发布时间】：2019-12-19 11:41:39
【问题描述】：

我正在开发一个闪亮的应用程序，并为 UI 部分使用了闪亮的仪表板包。我想在悬停时打开侧边栏，而不是单击按钮。我已经尝试过数据触发选项，但它不起作用。谁能帮我做这件事？

闪亮的仪表板应用程序的最小示例

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

【问题讨论】：

标签： r shiny hover

【解决方案1】：

你可以用 JQuery 做到这一点：

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(),
  tags$head(tags$script(HTML("$(function() { $('a.sidebar-toggle').mouseover(function(e) { $(this).click()})});")))
)

server <- function(input, output) { }

shinyApp(ui, server)

【讨论】：

感谢您的解决方案。还有一件事，鼠标悬停时是否可以左对齐悬停按钮？