data-raw/fns/rowbind.R

In readyforwhatsnext/ready4fun: ready4 Function Authoring And Documentation Tools

rowbind_all_tbs_in_r4_obj <- function(tbs_r4, ## Move to ready4class or ready4use
                                         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_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)
}