tooltip上shiny的R？

我只是想在我的shiny的R应用程序中有一个工具提示。 有没有简单的方法来实现呢？ 现在，我正在创build一个密度图，我想要一个简单的工具提示，将鼠标hover在YEAR上方，显示“点击此处滑动数年”。
用户界面：

library(shiny) shinyUI(pageWithSidebar( headerPanel("Density Map"), sidebarPanel( sliderInput("slider_year", "YEAR:", min = 2001, max = 2011, value = 2009, format="####", locale="us" ) ) ), mainPanel( plotOutput("event_heatmap_map", width = "100%", height = "100%") ) )) 

服务器代码：

 library(shiny) library(ggmap) library(ggplot2) mydata <- read.csv("/var/shiny-server/www/dMetrics.csv") shinyServer(function(input, output) { output$event_heatmap_map <- renderPlot(width = "auto", height = 640,{ slice_year <- mydata[mydata$YEAR==input$slider_year,] map <- get_map(c(lon = -55.3632715, lat = 31.7632836), zoom = 3, source = 'google', maptype = c("terrain"), messaging = FALSE, color = 'color') world <- ggmap(map) world <- world + stat_density2d(data = slice_year, aes(x = WEST, y = NORTH, fill = ..level.., alpha = ..level..), show_guide = FALSE, geom = "polygon", na.rm = TRUE) + scale_fill_gradient(name="Density", low="maroon", high="yellow", guide = 'colorbar') plot(world) }) }) 

谢谢您的帮助。

Answer 1

我想你应该能够取代这个：

 sliderInput("slider_year", "YEAR:", min = 2001, max = 2011, value = 2009, format="####", locale="us" ) 

有了这个：

 tags$div(title="Click here to slide through years", sliderInput("slider_year", "YEAR:", min = 2001, max = 2011, value = 2009, format="####", locale="us" ) ) 

Answer 2

这是更简单，更优雅的方式。

 library(shinyBS) # Additional Bootstrap Controls ## From ui.R: Adds a tooltip to element with inputId = "someInput" ## with text, "This is an input.", that appears to the left on hover. bsTooltip(id = "someInput", title = "This is an input", placement = "left", trigger = "hover") ## From server.R: Add the same tooltip as above addTooltip(session, id = "someInput", title = "This is an input.", placement = "left", trigger = "hover") 

您可以在ui.R或server.R添加工具提示，另外您也可以使用Popover。