data-raw/fns/knit.R

In ready4-dev/specific: Specify Models to Solve Inverse Problems

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")
}