generate html code with R

r2html_into_variable.R

library(R2HTML)

# setup a temporaty file to store the code
fileName <- 'temp.html'
.HTML.file = file.path(getwd(), fileName)

# make a title
HTML(as.title("Title of my report"), append = FALSE)
# add space
HTMLhr()
# add text
HTML("3 dimensions identity matrix")
# add a matrix
HTML(diag(3))
# add a matrix with internal border formatting
# note: more info about formatting: ?HTML.data.frame
HTML(diag(3), innerBorder = 1)

# get the html code into a variable
hrml_code_chunk <- readChar(fileName, file.info(fileName)$size)

# clean up
file.remove(fileName)