#' Convert language to a string
#'
#' @param x language
#'
#' @return a character vector of length 1
#' @export
#'
#' @examples \dontrun{
#' lang2str(list())
#' }
#'
lang2str <- function(x, env = parent.frame(1L)){
as.character(as.expression(substitute(expr = x, env = env)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.