Nothing
#' @rdname export
#' @export
export.sc_trend <- function(object,
caption = NA,
footnote = NA,
filename = NA,
kable_styling_options = list(),
kable_options = list(),
round = 2,
...) {
kable_options <- .join_kabel(kable_options)
kable_styling_options <- .join_kabel_styling(kable_styling_options)
if (is.na(caption)) caption <- c("Trend analysis")
out <- object$trend
#if (isTRUE(flip)) out <- t(out)
tmp.rownames <- rownames(out)
rownames(out) <- NULL
for (tmp in object$formulas) {
tmp.rownames <- gsub(paste0(tmp, "."), "", tmp.rownames)
}
out <- cbind(Phase = tmp.rownames, out)
table <- .create_table(
out,
kable_options,
kable_styling_options,
caption = caption,
footnote = footnote
)
for (i in 1:length(object$formulas)) {
table <- group_rows(
table, object$formulas[i],
1 + (i - 1) * (length(object$design) + 1),
i * (length(object$design) + 1)
#label_row_css = "text-align: center;"
)
}
# finish ------------------------------------------------------------------
if (!is.na(filename)) .save_export(table, filename)
table
}
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.