path <- function(fs) {
# prevents lazy evaluation
force(fs)
if(length(fs) == 0 || is.null(fs))
stop("the provided list of function is not valid (either empty or null)")
Reduce(compose, fs)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.