#' @title Adaptation of bsToolTip for radio buttons
#' @description TO ADD
#' @description This is a new line ...
#' @details What's this?
#' @export
radio_tool_tip <- function(id, choice, title, placement="bottom", trigger="hover", options=NULL){
options = shinyBS:::buildTooltipOrPopoverOptionsList(title, placement, trigger, options)
options = paste0("{'", paste(names(options), options, sep="': '", collapse="', '"), "'}")
bsTag <- shiny::tags$script(shiny::HTML(paste0("
$(document).ready(function() {
setTimeout(function() {
$('input', $('#", id, "')).each(function(){
if(this.getAttribute('value') == '", choice, "') {
opts = $.extend(", options, ", {html: true});
$(this.parentElement).tooltip('destroy');
$(this.parentElement).tooltip(opts);
}
})
}, 500)
});
")))
htmltools::attachDependencies(bsTag, shinyBS:::shinyBSDep)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.