R/fn_transform.R

In ready4-dev/ready4use: Ingest, Label, Visualise and Share Health Economic Model Datasets

#' Transform comma separated variables file column to list column
#' @description transform_csv_col_to_ls_col() is a Transform function that edits an object in such a way that core object attributes - e.g. shape, dimensions, elements, type - are altered. Specifically, this function implements an algorithm to transform comma separated variables file column to list column. The function returns List column (a list).
#' @param csv_col_xx Comma separated variables file column (an output object of multiple potential types)
#' @return List column (a list)
#' @rdname transform_csv_col_to_ls_col
#' @export 
#' @importFrom purrr map
#' @importFrom stringr str_split str_sub
#' @keywords internal
transform_csv_col_to_ls_col <- function (csv_col_xx) 
{
    ls_col_ls <- purrr::map(csv_col_xx, ~ifelse(is.na(.x), .x, 
        ifelse(startsWith(.x, "c("), .x, paste0("c(\"", .x, "\")")))) %>% 
        purrr::map(~stringr::str_split(.x %>% stringr::str_sub(start = 3, 
            end = -2), ",") %>% unlist()) %>% purrr::map(~unlist(.x)) %>% 
        purrr::map(~parse(text = paste0("c(", paste0(.x, collapse = ","), 
            ")")) %>% eval())
    return(ls_col_ls)
}
#' Transform dates
#' @description transform_dates() is a Transform function that edits an object in such a way that core object attributes - e.g. shape, dimensions, elements, type - are altered. Specifically, this function implements an algorithm to transform dates. The function returns Dates (a date vector).
#' @param dates_chr Dates (a character vector)
#' @param drop_time_1L_lgl Drop time (a logical vector of length one), Default: F
#' @return Dates (a date vector)
#' @rdname transform_dates
#' @export 
#' @importFrom purrr map_chr
#' @importFrom stringr str_sub
#' @importFrom lubridate as_date
#' @keywords internal
transform_dates <- function (dates_chr, drop_time_1L_lgl = F) 
{
    dates_chr <- dates_chr %>% strsplit("/") %>% purrr::map_chr(~paste0(stringr::str_sub(.x[3], 
        end = 4), "-", .x[2], "-", .x[1], ifelse(nchar(.x[3]) > 
        4, stringr::str_sub(.x[3], start = 5), "")))
    if (drop_time_1L_lgl) {
        dates_chr <- dates_chr %>% stringr::str_sub(end = 10)
    }
    dates_dtm <- dates_chr %>% lubridate::as_date()
    return(dates_dtm)
}
#' Transform raw dataframe
#' @description transform_raw_df() is a Transform function that edits an object in such a way that core object attributes - e.g. shape, dimensions, elements, type - are altered. Specifically, this function implements an algorithm to transform raw dataframe. The function returns Dataset (a tibble).
#' @param data_df Data (a data.frame)
#' @param cases_start_at_1L_int Cases start at (an integer vector of length one), Default: 1
#' @return Dataset (a tibble)
#' @rdname transform_raw_df
#' @export 
#' @importFrom dplyr slice
#' @importFrom tibble as_tibble
#' @keywords internal
transform_raw_df <- function (data_df, cases_start_at_1L_int = 1L) 
{
    ds_tb <- data_df %>% dplyr::slice(cases_start_at_1L_int:nrow(.)) %>% 
        tibble::as_tibble()
    return(ds_tb)
}