#' Internal function used for testing
#'
#' @param x string
convert_str_to_obj <- function(x) {
x <- stringr::str_replace(x, "Rscript api.R ", "")
s <- stringr::str_split(x, " ")[[1]]
s2 <- stringr::str_split(s, "=")
obj <- list()
for(i in seq(s2)) {
obj[[s2[[i]][1]]] <- s2[[i]][2]
}
obj
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.