tests/testthat/example_create_table/R/transform.R

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

transform <- function(raw_data) {
  transformed_data <- list()
  transformed_data$hobbies <- raw_data$hobbies
  ## Create a new table
  transformed_data$abode <- data.frame(person = c("Alice", "Bob"),
                                       type = c("house", "flat"),
                                       stringsAsFactors = FALSE)
  transformed_data
}