flow.transform <- function(dc, transformer = NULL) {
###
###
# TRANSFORM
###
###
stopifnot(is.data.table(dc$DATA$value))
return(dc)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.