misc helper functions

gistfile1.txt

library(dplyr)
library(broom)
library(modelsummary)


clean_colnames <- function(df) {
    new <- tolower(gsub(" ", "_", names(df)))
    new <- gsub(".", "_", new, fixed = TRUE)
    new <- gsub("(", "", new, fixed = TRUE)
    new <- gsub(")", "", new, fixed = TRUE)
    names(df) <- new
    return(df)
}


ds <- function(data, output = "markdown") {
    message(paste(nrow(data), "obs", ncol(data), "cols"))
    return(datasummary(All(data) ~ NUnique + PercentMissing + Mean + SD + Min + Median + Max + Histogram, data = data, output = output))
}


tidy <- function(...) {
    return(data.table(broom::tidy(...)))
}


scale_minmax <- function(x, new_range = c(0, 1)) {
    scale_01 <- (x - min(x, na.rm = T)) / (max(x, na.rm = T) - min(x, na.rm = T))
    x_scaled <- scale_01 * (new_range[2] - new_range[1]) + new_range[1]
    return(x_scaled)
}


rounddf <- function(data, digits = 3) {
    mutate(data, across(where(is.numeric), round, digits = digits))
}