In rappster/shimo.eda: Shiny modules: EDA

knitr::opts_chunk$set(echo = TRUE)

Links

https://www.garrickadenbuie.com/blog/shiny-tip-option-where-to-run/

x <- tibble::tribble(
    ~department, ~attrition,
    "A", "yes",
    "B", "no",
    "A", "no",
    "A", "yes", 
    "B", "yes",
    "B", "yes", 
    "B", "yes"
)
x %>% 
    wrang::summa_freq_table(department, attrition, .digits_n_rel = 2)

renv::install("styler", "shinyAce", "shinyjqui", "shinyEffects")
shinydashboardPlus::shinydashboardPlusGallery()

x <- mtcars %>% 
    dplyr::group_by(cyl, mpg)
x <- mtcars

x %>% dplyr::group_vars()

y <- x %>%
    wrang::summa_freq_table(
        # !!!cols,
        .col_n_abs = "n_abs",
        .col_n_rel = "n_rel",
        .sort = TRUE
    )

y