data-raw/OLDfns/knit.R

In ready4-dev/TTU: Implement Transfer to Utility Mapping Algorithms

knit_from_tmpl <- function (params_to_expand_ls, path_to_tmpl_1L_chr)
{
  lifecycle::deprecate_soft("0.0.0.9323","TTU::knit_from_tmpl()","ready4show::knit_from_tmpl()")
  src <- purrr::map(params_to_expand_ls,
                    ~{
                      args_ls <- append(list(file = path_to_tmpl_1L_chr),
                                        .x)
                      rlang::exec(knitr::knit_expand,
                                  !!!args_ls)
                    })
  res <- knitr::knit_child(text = unlist(src), quiet = TRUE)
  cat(res, sep = "\n")
}
knit_mdl_rprt <- function (knit_pars_ls, path_to_mdl_rprt_tmpl_1L_chr)
{
    src <- purrr::pmap(append(knit_pars_ls,
                              list(names(knit_pars_ls$plt_nms_ls))), ~knitr::knit_expand(path_to_mdl_rprt_tmpl_1L_chr,
        plt_nms_chr = ..1 %>% deparse(), path_to_mdl_1L_chr = ..2 %>%
            deparse(), caption_1L_chr = ..3 %>% deparse(), label_stub_1L_chr = ..4 %>%
            deparse(), output_type_1L_chr = ..5 %>% deparse(),
        section_tot_1L_chr = ..6,
        paths_to_mdl_plts_chr = ..7 %>% deparse(),
        mdl_nms_chr = ..8 %>% deparse()))
    res <- knitr::knit_child(text = unlist(src), quiet = TRUE)
    cat(res, sep = "\n")
}