inst/examples/person_information/R/transform.R

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

#' Transform data into a form ready for loading into database.
#'
#' This step is responsible for transforming the extracted data into a form
#' which conforms with the database so it can be loaded at the next stage.
#'
#' @param extracted_data The extracted data from the extract stage.
#'
#' @return A named list of data frames representing the transformed data. This
#' should conform to the database schema, where each list item matches the name
#' of a table in the DB and the column names of each dataframe match the column
#' names from the DB.
#'
#' @keywords internal
transform <- function(extracted_data) {
  transformed_data <- list()
  transformed_data$people <- extracted_data$people[
    which(extracted_data$people$age < 50), ]
  transformed_data
}