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

r ifelse(!exists("outp_smry_ls"),"## Retrieve analysis summary object","")

if(!exists("outp_smry_ls")){
outp_smry_ls <- here::here(paths_ls$path_from_top_level_1L_chr,
                           ifelse(is.null(paths_ls$prmry_analysis_dir_nm_1L_chr),
                                  paths_ls$write_to_dir_nm_1L_chr,
                                  paths_ls$prmry_analysis_dir_nm_1L_chr),
                           "Output",
                           "I_ALL_OUTPUT_.RDS") %>% 
  normalizePath() %>% 
  readRDS()  
}