Chart$methods(
# We keep this so dummy examples work, but this method is usually overrided
# in each Template class
get_data = function(){
data <<- params$x
},
validate_tooltip_formats = function(data_names){
if (any(names(params$tooltip_formats) %notin% data_names)){
wrong_names <- names(params$tooltip_formats)[names(params$tooltip_formats) %notin% data_names]
stop(sprintf("The following format names are not x, y, or any of the extra names:\n%s\n\n",
enumerate(wrong_names)), call. = FALSE)
}
return()
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.