In rsquaredacademy/report: Generate Reports from Rsquared Academy Packages

knitr::opts_chunk$set(echo = FALSE)

suppressWarnings(suppressMessages(library(descriptr, quietly = TRUE)))
suppressWarnings(suppressMessages(library(purrr, quietly = TRUE)))
suppressWarnings(suppressMessages(library(rlang, quietly = TRUE)))
suppressWarnings(suppressMessages(library(glue, quietly = TRUE)))

is_num  <- map_lgl(report_data, is.numeric)
is_fact <- map_lgl(report_data, is.factor)
num_df  <- report_data[, is_num]
nam_n   <- names(num_df)
nc_n    <- ncol(num_df)
fact_df <- report_data[, is_fact]
nam_f   <- names(fact_df)
nc_f    <- ncol(fact_df)

Data Screening

ds_screener(report_data)

Summary Statistics

for (i in seq_len(nc_n)) {
  cat("\n")
  cat(glue("Variable: ", nam_n[i]))
  cat("\n")
  k <- ds_summary_stats(report_data, nam_n[i])
  print(k)
  cat("\n\n")
}

Frequency Table (Continuous Data)

for (i in seq_len(nc_n)) {
  k <- ds_freq_cont(report_data, nam_n[i])
  print(k)
  cat("\n")
}

Group Summary

for (i in seq_len(nc_f)) {
  for (j in seq_len(nc_n)) {
    cat("\n")
    k <- ds_group_summary(report_data, !!sym(nam_f[i]), !!sym(nam_n[j]))
    print(k)
  }
}