Nothing
#' Helper to [getDescriptionStatsBy()]
#'
#' @inheritParams getDescriptionStatsBy
#'
#' @return A [base::by] list
prNumericDescs <- function(x,
by,
hrzl_prop,
continuous_fn,
html,
digits,
digits.nonzero,
numbers_first,
useNA,
useNA.digits,
percentage_sign,
missing_value,
names_of_missing) {
# If the numeric has horizontal_proportions then it's only so in the
# missing category
if (hrzl_prop) {
t <- by(x, by,
FUN = continuous_fn,
html = html,
digits = digits,
digits.nonzero = digits.nonzero,
number_first = numbers_first,
useNA = useNA,
useNA.digits = useNA.digits,
horizontal_proportions = table(is.na(x), useNA = useNA),
percentage_sign = percentage_sign
)
} else {
t <- by(x, by,
FUN = continuous_fn,
html = html,
digits = digits,
digits.nonzero = digits.nonzero,
number_first = numbers_first,
useNA = useNA,
useNA.digits = useNA.digits,
percentage_sign = percentage_sign
)
}
missing_t <- sapply(t, is.null)
if (any(missing_t)) {
substitute_t <- rep(missing_value, length(t[!missing_t][[1]]))
names(substitute_t) <- names(t[!missing_t][[1]])
for (i in seq_along(t[missing_t])) {
t[missing_t][[i]] <- substitute_t
}
}
if (all(unlist(sapply(t, is.na))) & !is.null(names_of_missing)) {
substitute_t <- rep(missing_value, length(names_of_missing))
names(substitute_t) <- names_of_missing
substitute_list <- vector("list", length = length(t))
names(substitute_list) <- names(t)
for (i in seq_along(substitute_list)) {
substitute_list[[i]] <- substitute_t
}
t <- substitute_list
}
if (length(t[[1]]) != 1) {
fn_name <- deparse(substitute(continuous_fn))
if (fn_name == "describeMean") {
names(t[[1]][1]) <- "Mean"
} else if (fn_name == "describeMedian") {
names(t[[1]][1]) <- "Median"
} else {
names(t[[1]][1]) <- fn_name
}
}
return(t)
}
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.