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

## ----setup--------------------------------------------------------------------
library(validateR)

## ----create-data--------------------------------------------------------------
messy_data <- data.frame(
  age = c(25, 12, NA, 17, 19), 
  weight = c("45", "34", "25", "N/A", "32"),
  price = c(100, 120, 140, 1500, 125)
)
messy_data <- rbind(messy_data, messy_data[3, ])
messy_data

## ----run-validate-------------------------------------------------------------
report <- validate_df(messy_data)
report

## -----------------------------------------------------------------------------
report$results$missing

## -----------------------------------------------------------------------------
report$results$outliers

## -----------------------------------------------------------------------------
report$results$duplicates

## -----------------------------------------------------------------------------
report$results$numeric_like

## ----fig.width=6, fig.height=6------------------------------------------------
plot(report)

## -----------------------------------------------------------------------------
check_outliers(messy_data)