data-raw/s4_fns/authorData.R

In ready4-dev/ready4show: Author Health Economic Analysis Programs and Reporting Templates

authorData_Ready4showSynopsis <- function(x,
                                          consent_1L_chr = "",
                                          consent_indcs_int = 1L,
                                          options_chr = c("Y", "N"),
                                          tmpl_url_1L_chr = "https://github.com/ready4-dev/ms_tmpl",
                                          tmpl_version_1L_chr = "0.1.1.0",
                                          what_1L_chr = "Manuscript",
                                          ...){
  if(!is.na(x@a_Ready4showPaths@mkdn_source_dir_1L_chr)){
    mkdn_source_dir_1L_chr <- x@a_Ready4showPaths@mkdn_source_dir_1L_chr
  }else{
    mkdn_repos_chr <- strsplit(tmpl_url_1L_chr,"/") %>% purrr::pluck(1) %>% tail(2)
    temp_dir_1L_chr <- tempdir()
    write_mkdn_from_repo(consent_1L_chr = consent_1L_chr,
                         consent_indcs_int = consent_indcs_int,
                         mkdn_data_dir_1L_chr = temp_dir_1L_chr,
                         ms_mkdn_parent_1L_chr = mkdn_repos_chr[1],
                         ms_mkdn_repo_1L_chr = mkdn_repos_chr[2],
                         options_chr = options_chr,
                         version_1L_chr = tmpl_version_1L_chr)
    mkdn_source_dir_1L_chr <- paste0(temp_dir_1L_chr,
                                     "/",
                                     tmpl_url_1L_chr %>% basename(),
                                     "-",
                                     tmpl_version_1L_chr)
  }
  if(what_1L_chr != "Manuscript"){
    ms_mkdn_dir_1L_chr <- x@a_Ready4showPaths@ms_mkdn_dir_1L_chr
    ms_dir_1L_chr <- x@a_Ready4showPaths@ms_dir_1L_chr
    x@a_Ready4showPaths@ms_mkdn_dir_1L_chr <- x@a_Ready4showPaths@ms_dir_1L_chr <- what_1L_chr
  }
  paths_ls <- manufacture(x,
                          what_1L_chr = "paths_ls")
  write_new_dirs(paths_ls %>%
                   purrr::flatten_chr(),
                 consent_1L_chr = consent_1L_chr,
                 consent_indcs_int = consent_indcs_int,
                 options_chr = options_chr)
  ready4::write_new_files(paths_ls$path_to_ms_mkdn_dir_1L_chr,
                          source_paths_ls = list(mkdn_source_dir_1L_chr),
                          consent_1L_chr = consent_1L_chr,
                          consent_indcs_int = consent_indcs_int,
                          options_chr = options_chr)
  if(exists("temp_dir_1L_chr")){
    unlink(temp_dir_1L_chr)
  }
}