R/tippy.R

In Metropolitan-Council/service.allocation.viz: Scrolly-telling viz for comparing scenarios in the bus service allocation study

#' @name Custom tippy widget functions
#'
#' @inheritParams tippy::tippy
#'
#' @return a tippy
#' @export
#' @importFrom tippy tippy
#'
#' @noRd
#'
my_tippy <- function(
  tooltip,
  text
) {
  tippy::tippy(
    tooltip = tooltip,
    text = text,
    placement = "right-end",
    interactive = "true",
    allowHTML = "true"
  )
}