knitr::opts_chunk$set( comment = "#>", tidy = FALSE, error = FALSE, fig.width = 8, fig.height = 8)
Interactive Tooltip htmlwidget
tooltipsterR
is an htmlwidget wrapper for the excellent jQuery tooltipster library for interactive tooltips.
devtools::install_github("timelyportfolio/tooltipsterR")
htmltools
library(tooltipsterR) library(htmltools) browsable( tagList( tags$p( "See my ", tags$span( class="tooltip", style="color:gray;", title="tooltips provided by tooltipsterR", "tooltip" ) ), tooltipster() ) )
formattable
library(tooltipsterR) library(formattable) library(htmltools) #example from ?formatter top10red <- formatter( "span", class = x ~ ifelse(rank(-x) <= 10, "tooltipster-tooltip", ""), style = x ~ ifelse(rank(-x) <= 10, "color:red", NA), title = x ~ ifelse(rank(-x) <= 10, "top 10", "not top 10") ) yesno <- function(x) ifelse(x, "yes", "no") browsable( tagList( formattable::as.htmlwidget(formattable(mtcars, list(mpg = top10red, qsec = top10red, am = yesno))), tooltipster(".tooltipster-tooltip") ) )
remoji
library(tooltipsterR) library(remoji) library(stringi) library(htmltools) browsable( tagList( twemoji(), lapply( find_emoji(""), function(heart){ tags$div( style="float:left;", class="tooltip", title = heart, HTML(stri_trans_general(emoji(heart),"any-hex/xml")) ) } ), tooltipster() ) )
svglite
library(tooltipsterR) library(htmltools) library(svglite) browsable( tagList( htmlSVG(plot(1:3,col=blues9[7:9],pch=16)), tooltipster(), tags$script( " $('circle').each(function(){ $(this).tooltipster({ content: $(this).css('fill') }) }) " ) ) )
MIT + file LICENSE © Kenton Russell.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.