In AdrienLeGuillou/briefr: Get a briefing of your data frame

knitr::opts_chunk$set(echo = TRUE)

symnames <- rlang::syms(colnames(df))

Dataframe overview

  brf_rmd_df(df)

Non Grouped description

if (non_grouped) {
  invisible(lapply(
    rlang::syms(colnames(df)),
    brf_rmd_dispatch, df = df, na.rm = na.rm
  ))
} else {
    cat("Non Grouped description skipped\n\n")
}

invisible(lapply(
  groupings,
  function(g) {
    cat(paste0("# Grouping by ", g, "\n\n"))

    invisible(lapply(
      symnames[symnames != g],
      brf_rmd_dispatch, df = df, grouping_col = !!rlang::sym(g), na.rm = na.rm
    ))

    cat("\n\n")
  }
))

AdrienLeGuillou/briefr documentation built on July 25, 2022, 5:31 a.m.