# NOT RUN {
callback <- cb(
"function(drat, qsec){
percent = qsec / 100 + '%';
return {
name: drat,
value: percent
};
}"
)
template <- '<li>{name}: {value}</li>'
g2(mtcars, asp(mpg, qsec, tooltip = drat, tooltip = qsec, color = qsec)) %>%
fig_point() %>%
gauge_tooltip(callback) %>%
conf_tooltip(itemTpl = template, showTitle = FALSE)
# }
Run the code above in your browser using DataLab