knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) library(drawExpression)
x <- 4:6 drawExpression("x")
names(x) <- LETTERS[1:3] drawExpression("x", draw.names = TRUE)
drawExpression("x[2]")
l <- list(F, 1:3, list(1:2, "foo")) drawExpression("l")
drawExpression("sum(x)")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.