#' @importFrom dplyr %>%
# Get total count of variables for each row
get_counts <- function(list_vars_data) {
if (NROW(list_vars_data) != 0) {
output <- list_vars_data %>%
group_by_("Dataframe", "Class") %>%
summarise_(Count = "n()") %>%
spread_("Class", "Count", fill = 0) %>%
ungroup()
# Extract only the class count columns in order to sum them.
var_classes <- output %>%
select_("-Dataframe")
total_vars <- rowSums(var_classes)
# Attach total_vars to the original output
output <- data.frame(cbind(output, total_vars))
} else {
output <- data.frame()
}
}
# Get sample size for each row
get_sample_sizes <- function(output) {
sample_size <- c()
for (i in 1:nrow(output)) {
n <- output[i, ]$Dataframe %>%
as.character() %>%
get() %>%
as.data.frame() %>%
nrow()
sample_size[i] <- n
}
output <- cbind(output, sample_size)
return(output)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.