.prepare_scdf <- function(data, na.rm = FALSE) {
# check class scdf validity
if (opt("rigorous_class_check")) {
check_scdf(data)
}
pvar <- phase(data)
mvar <- mt(data)
dvar <- dv(data)
# revise names -----
names(data) <- revise_names(names(data), length(data))
for(case in 1:length(data)) {
if (inherits(data[[case]], "tbl_df")) {
class(data[[case]]) <- "data.frame"
message("Found tibble within scdf and changed it to data.frame.")
}
vars <- names(data[[case]])
if (na.rm) data[[case]] <- data[[case]][!is.na(data[[case]][[dvar]]), ]
if (!is.factor(data[[case]][[pvar]])) {
data[[case]][[pvar]] <- as.factor(data[[case]][[pvar]])
}
data[[case]][[pvar]] <- droplevels(data[[case]][[pvar]])
}
data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.