knitr::opts_chunk$set(echo = TRUE) symnames <- rlang::syms(colnames(df))
brf_rmd_df(df)
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") } ))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.