tests/testthat/example_pre_post_load/R/transform.R

In vimc/dettl: Data Extract, Transform, Test and Load

transform <- function(raw_data) {
  transformed_data <- list()
  transformed_data$people <- raw_data$people[which(raw_data$people$age < 50), ]
  transformed_data$jobs <- raw_data$jobs[which(raw_data$jobs$job != "retired"), ]
  transformed_data
}