R/fn_rowbind.R

In ready4: Develop and Use Modular Health Economic Models

#' Rowbind all tibbles in ready4 module object
#' @description rowbind_all_tbs_in_r4_obj() is a Rowbind function that performs custom rowbind operations on table objects. Specifically, this function implements an algorithm to rowbind all tibbles in ready4 module object. The function returns Tibbles (a ready4 module).
#' @param tbs_r4 Tibbles (a ready4 module)
#' @param second_tbs_r4 Second tibbles (a ready4 module)
#' @param r4_name_1L_chr Ready4 module name (a character vector of length one)
#' @return Tibbles (a ready4 module)
#' @rdname rowbind_all_tbs_in_r4_obj
#' @export 
#' @importFrom purrr reduce
#' @importFrom methods getSlots
#' @keywords internal
rowbind_all_tbs_in_r4_obj <- function (tbs_r4, second_tbs_r4, r4_name_1L_chr) 
{
    tbs_r4 <- purrr::reduce(methods::getSlots(r4_name_1L_chr) %>% 
        names(), .init = tbs_r4, ~rowbind_tbs_in_r4_obj(tbs_r4 = .x, 
        slot_nm_1L_chr = .y, second_tbs_r4 = second_tbs_r4, r4_name_1L_chr = r4_name_1L_chr))
    return(tbs_r4)
}
#' Rowbind tibbles in ready4 module object
#' @description rowbind_tbs_in_r4_obj() is a Rowbind function that performs custom rowbind operations on table objects. Specifically, this function implements an algorithm to rowbind tibbles in ready4 module object. The function returns Tibbles (a ready4 module).
#' @param tbs_r4 Tibbles (a ready4 module)
#' @param slot_nm_1L_chr Slot name (a character vector of length one)
#' @param second_tbs_r4 Second tibbles (a ready4 module)
#' @param r4_name_1L_chr Ready4 module name (a character vector of length one)
#' @return Tibbles (a ready4 module)
#' @rdname rowbind_tbs_in_r4_obj
#' @export 
#' @importFrom tibble is_tibble
#' @importFrom methods slot
#' @keywords internal
rowbind_tbs_in_r4_obj <- function (tbs_r4, slot_nm_1L_chr, second_tbs_r4, r4_name_1L_chr) 
{
    if (tibble::is_tibble(methods::slot(tbs_r4, slot_nm_1L_chr))) {
        slot(tbs_r4, slot_nm_1L_chr) <- rbind(methods::slot(tbs_r4, 
            slot_nm_1L_chr), methods::slot(second_tbs_r4, slot_nm_1L_chr))
    }
    return(tbs_r4)
}