data-raw/mthds/write_classes.R

In readyforwhatsnext/ready4class: Readyforwhatsnext Tools For Creating And Extending Classes.

write_classes.ready4_constructor_tbl <- function(x,
                                                 name_pfx_1L_chr,
                                                 output_dir_1L_chr,
                                                 file_exists_cdn_1L_chr = NULL,
                                                 prototype_lup = NULL,
                                                 nss_to_ignore_chr,
                                                 req_pkgs_chr = NA_character_,
                                                 class_in_cache_cdn_1L_chr = "stop",
                                                 abbreviations_lup = NULL){
  if(is.null(abbreviations_lup))
    data("abbreviations_lup", package = "ready4class",
         envir = environment())
  purrr::pwalk(x %>% dplyr::filter(make_s3_lgl == T),
               ~ write_scripts_to_mk_r3_cls(name_stub_1L_chr = ..2,
                                            name_pfx_1L_chr = name_pfx_1L_chr,
                                            output_dir_1L_chr = output_dir_1L_chr,
                                            class_desc_1L_chr = ..10,
                                            parent_cls_nm_1L_chr = if(is.na(..11)){
                                              NULL}else{
                                                ..11},
                                            type_1L_chr = ..3[[1]],
                                            pt_chkr_pfx_1L_chr = ..4[[1]],
                                            pt_ns_1L_chr = ifelse(..5[[1]] %in% c("base"),"",..5[[1]]), ## THIS MAY NEED UPDATING
                                            vals_ls = ..6,
                                            allowed_vals_ls = ..7,
                                            min_max_vals_dbl = ..8[[1]][[1]],
                                            start_end_vals_dbl = ..9[[1]][[1]],
                                            file_exists_cdn_1L_chr = file_exists_cdn_1L_chr,
                                            prototype_lup = prototype_lup,
                                            nss_to_ignore_chr = nss_to_ignore_chr,
                                            abbreviations_lup = abbreviations_lup))
  purrr::pwalk(x %>% dplyr::filter(make_s3_lgl != T),
               ~ write_scripts_to_mk_r4_cls(name_stub_1L_chr = ..2,
                                            name_pfx_1L_chr = name_pfx_1L_chr,
                                            output_dir_1L_chr = output_dir_1L_chr,
                                            class_desc_1L_chr = ..10,
                                            parent = if(is.na(..11)){
                                              NULL}else{
                                                ..11},
                                            slots_chr = ..12[[1]],
                                            type_chr = ..3[[1]],
                                            meaningful_nms_ls = ..13,
                                            vals_ls = ..6[[1]],
                                            allowed_vals_ls = ..7[[1]],
                                            clss_to_inc_chr = ..14[[1]],
                                            prototype_lup = prototype_lup,
                                            nss_to_ignore_chr = nss_to_ignore_chr,
                                            req_pkgs_chr = req_pkgs_chr,
                                            class_in_cache_cdn_1L_chr = class_in_cache_cdn_1L_chr))
}