14 lines
486 B
R
14 lines
486 B
R
# 02_validate.R
|
|
# Validates raw input files. Stops the pipeline if data doesn't look right.
|
|
|
|
source("scripts/00_paths.R")
|
|
|
|
|
|
df_income <- read_csv(income_raw, show_col_types = FALSE)
|
|
df_population <- read_csv(population_raw, show_col_types = FALSE)
|
|
|
|
stopifnot("df_income has wrong number of columns" = ncol(df_income) == input_cols)
|
|
stopifnot("df_population has wrong number of columns" = ncol(df_population) == input_cols)
|
|
|
|
cat("02_validate.R: input data looks good\n")
|