Nothing
#' @rdname assemble
#' @export
assemble.list =
function(object, x, m = 2, sparse = TRUE,
spdiffpen = TRUE, digits = 1, ...) {
if (length(m) == 1) {
m = rep(m, length(object))
}
d = length(x)
assembled = lapply(seq_len(d), function(i) {
assemble(
object = object[[i]],
x = x[[i]],
m = m[i],
sparse = sparse,
spdiffpen = spdiffpen,
digits = digits
)
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.