write_profiling_data <- function(data, name) {
list.save(x = data, file = paste(name, "rdata", sep = "."))
}
load_profiling_data <- function(file_name) {
data <- list.load(file_name)
data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.