## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = T, comment = "#>")

## ----setup--------------------------------------------------------------------
library(datareportR)

## ----eval=FALSE---------------------------------------------------------------
# iris = datasets::iris
# datareportR::render_data_report(df_input = iris, save_report_dir = tempdir())

## ----eval=FALSE---------------------------------------------------------------
# set.seed(12345)
# 
# iris = datasets::iris
# iris_permuted = iris
# 
# # Randomly switch the order of the Species column
# iris_permuted$Species <- sample(iris$Species)
# 
# datareportR::render_data_report(
#   df_input = iris,
#   df_input_old = iris_permuted,
#   save_report_dir = tempdir()
# )

## ----eval=FALSE---------------------------------------------------------------
# datareportR::render_data_report(
#   df_input = iris,
#   save_report_dir = tempdir(),
#   include_diffdf = FALSE
# )

## ----eval=FALSE---------------------------------------------------------------
# datareportR::render_data_report(
#   df_input = iris,
#   save_report_dir = tempdir(),
#   output_format = "pdf"
# )

## ----eval=FALSE---------------------------------------------------------------
# datareportR::render_data_report(
#   df_input = iris,
#   save_rmd_dir = "output/",
#   save_report_file = "output/iris_report.html"
# )