data <- params$data numeric_cutoff <- params$numeric_cutoff max_length <- params$max_length nchar <- params$nchar
out <- character(length = ncol(data)) for (i in colnames(data)) { out <- c(out, knit_expand(file = 'desc_report_child.Rmd')) }
r paste(knit(text = out), collapse = '\n')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.