tests/testthat/example_no_transaction/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$people_transform <- read.csv("data/people.csv",
                                       stringsAsFactors = FALSE)
  transformed_data
}