# repipe <- function(lst, .call = FALSE) {
# text <- purrr::map(lst, deparse)
# text <- purrr::reduce(text, paste, sep = " %>% ")
# text <- gsub("\\(NULL\\)", "()", text)
# if (.call) parse(text = text)[[1]]
# else text
# }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.