info-bulle sur shiny R?

Je veux avoir une infobulle dans mon application Shiny R Y a-t-il un moyen facile d’y parvenir? Pour le moment, je crée une carte de densité et je veux une simple info-bulle montrant “cliquez ici pour parcourir les années” tout en passant la souris sur le curseur YEAR.

Interface utilisateur:

 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%") ) )) 

Code serveur:

 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) }) }) 

Merci pour l’aide.

Je pense que vous devriez pouvoir remplacer ceci:

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

avec ça:

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

C’est légèrement plus facile et plus élégant.

 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", sortinggger = "hover") ## From server.R: Add the same tooltip as above addTooltip(session, id = "someInput", title = "This is an input.", placement = "left", sortinggger = "hover") 

Vous pouvez append l’ ui.R bulle dans ui.R ou server.R , supplémentaire, vous pouvez également utiliser Popover.