data-raw/s4_fns/share.R

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

share_TTUProject <- function(x,
                             formats_chr = c(".docx",".pdf", ".tex"),
                             types_chr = "auto",
                             what_chr = c("catalogue", "instrument" ,"models")){
  if("manuscript" %in% what_chr | "supplement" %in% what_chr){
    purrr::walk(paste0("Manuscript_", Hmisc::capitalize(types_chr)),
                 ~ {
                   x <- x@d_TTUReports@a_TTUSynopsis
                   what_1L_chr <- .x

                   files_chr <- list.files(paste0(x@a_Ready4showPaths@outp_data_dir_1L_chr,
                                       "/",
                                       x@a_Ready4showPaths@reports_dir_1L_chr,
                                       "/",
                                       what_1L_chr))
                   files_chr <- files_chr[files_chr %>% purrr::map_lgl(~{
                     string_1L_chr <- .x
                     any(formats_chr %>% purrr::map_lgl(~endsWith(string_1L_chr,.x)))
                     })]
                   files_chr <- files_chr[files_chr %>% purrr::map_lgl(~{
                     string_1L_chr <- .x
                     any(Hmisc::capitalize(what_chr) %>% purrr::map_lgl(~startsWith(string_1L_chr,.x)))
                   })]
                     ms_nm_1L_chr <- "Manuscript"
                     idx_1L_int <- ready4::write_fls_to_dv(paste0(paste0(x@a_Ready4showPaths@outp_data_dir_1L_chr,
                                                                  "/",
                                                                  x@a_Ready4showPaths@reports_dir_1L_chr,
                                                                  "/",
                                                                  what_1L_chr,
                                                                  "/"),
                                                                  files_chr),
                                                           descriptions_chr = files_chr %>% purrr::map_chr(~paste0("Scientific summary of utility mapping study",
                                                                                                                   " ",
                                                                                                                   ifelse(startsWith(.x,"Supplement"),"(Supplement) ",""),
                                                                                                                   ifelse(endsWith(.x,".tex"),"(LaTeX) ",""),
                                                                                                                   ifelse(what_1L_chr == "Manuscript_Auto", " (algorithm generated)",""))),
                                                           ds_url_1L_chr = x@e_Ready4useRepos@dv_ds_nm_1L_chr)
                   Sys.sleep(5L)
                 }
    )
    }
    if("catalogue" %in% what_chr){
      shareSlot(x, "d_TTUReports@a_TTUSynopsis", type_1L_chr = "Report", what_1L_chr = "Catalogue")
    }
  if("instrument" %in% what_chr){
    descs_ls <- x@d_TTUReports@a_TTUSynopsis@b_SpecificResults@a_SpecificShareable@shareable_outp_ls$results_ls$study_descs_ls
    Y <- x
    Y@a_ScorzProfile@a_YouthvarsProfile@a_Ready4useDyad@ds_tb <- Y@a_ScorzProfile@a_YouthvarsProfile@a_Ready4useDyad@ds_tb %>% dplyr::filter(F)
    instrument_ls <- list(X_ScorzProfile = Y@a_ScorzProfile, depnt_var_nms_chr = c(descs_ls$health_utl_nm_1L_chr, descs_ls$health_utl_long_nm_1L_chr))
    Y <- share(x@d_TTUReports@a_TTUSynopsis@e_Ready4useRepos, description_1L_chr = "R list object with details of the utility instrument used in this study.",
               obj_to_share_xx = instrument_ls, fl_nm_1L_chr = "instrument")
  }
    if("models" %in% what_chr){
      shareSlot(x, "d_TTUReports@a_TTUSynopsis", type_1L_chr = "Models", what_1L_chr = "ingredients")
    }
  return(x)
}