##' @export
reporter.addQuicktable <- function(doc,quicktable){
if (quicktable[['landscape']] == TRUE){
doc %>>%
addSection(landscape = TRUE) ->
doc
}
doc %>>%
addParagraph(
quicktable[['title']],
stylename = quicktable[['stylename']]
) %>>%
addFlexTable(
quicktable[['table']]
) %>>%
addParagraph(
""
) ->
doc
return(doc)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.