data-raw/s4_fns/share.R

In ready4-dev/ready4use: Ingest, Label, Visualise and Share Health Economic Model Datasets

share_Ready4useRecord <- function(x,
                                  consent_1L_chr = "",
                                  consent_indcs_int = 1L,
                                  gh_prerelease_1L_lgl = T,
                                  gh_repo_desc_1L_chr = "Supplementary Files",
                                  key_1L_chr = Sys.getenv("DATAVERSE_KEY"),
                                  options_chr = c("Y", "N"),
                                  publish_dv_1L_lgl = F,
                                  type_1L_chr = "prefer_dv",
                                  ...){
  repos_chr <- c(character(0),
                 ifelse(!is.na(x@a_Ready4usePointer@b_Ready4useRepos@gh_tag_1L_chr) & (is.na(x@a_Ready4usePointer@b_Ready4useRepos@dv_ds_nm_1L_chr) | (type_1L_chr %in% c("all","prefer_gh"))),
                        "gh",
                        NA_character_),
                 ifelse(!is.na(x@a_Ready4usePointer@b_Ready4useRepos@dv_ds_nm_1L_chr) & (is.na(x@a_Ready4usePointer@b_Ready4useRepos@gh_tag_1L_chr) | (type_1L_chr %in% c("all","prefer_dv"))),
                        "dv",
                        NA_character_)) %>% purrr::discard(is.na)
  if(!identical(repos_chr,character(0))){
    if("dv" %in% repos_chr){
      server_1L_chr <- ifelse("server_1L_chr" %in% slotNames(x@a_Ready4usePointer@b_Ready4useRepos),
                              x@a_Ready4usePointer@b_Ready4useRepos@dv_server_1L_chr,
                              Sys.getenv("DATAVERSE_SERVER"))
      ds_ls <- ready4::write_env_objs_to_dv(env_objects_ls = x@b_Ready4useIngest@objects_ls, #%>% stats::setNames(x@b_Ready4useIngest@names_chr),
                                            consent_1L_chr = consent_1L_chr,
                                            consent_indcs_int = consent_indcs_int,
                                            descriptions_chr = x@b_Ready4useIngest@descriptions_chr,
                                            ds_url_1L_chr = x@a_Ready4usePointer@b_Ready4useRepos@dv_ds_nm_1L_chr,
                                            key_1L_chr = key_1L_chr,
                                            options_chr = options_chr,
                                            publish_dv_1L_lgl = publish_dv_1L_lgl,
                                            server_1L_chr = server_1L_chr)
      x@a_Ready4usePointer@b_Ready4useRepos@dv_ds_metadata_ls <- list(ds_ls = ds_ls)
    }
    if("gh" %in% repos_chr){
      piggyback_tag_1L_chr  <- ifelse(!is.na(x@a_Ready4usePointer@b_Ready4useRepos@gh_tag_1L_chr),
                                      x@a_Ready4usePointer@b_Ready4useRepos@gh_tag_1L_chr,
                                      "Documentation_0.0")
        ready4::write_env_objs_to_dv(env_objects_ls = x@b_Ready4useIngest@objects_ls, #%>% stats::setNames(x@b_Ready4useIngest@names_chr),
                                     consent_1L_chr = consent_1L_chr,
                                     consent_indcs_int = consent_indcs_int,
                                     descriptions_chr = NULL,
                                     ds_url_1L_chr = character(0),
                                     options_chr = options_chr,
                                     piggyback_desc_1L_chr = gh_repo_desc_1L_chr,
                                     piggyback_tag_1L_chr = piggyback_tag_1L_chr,
                                     piggyback_to_1L_chr = x@a_Ready4usePointer@b_Ready4useRepos@gh_repo_1L_chr,
                                     prerelease_1L_lgl = gh_prerelease_1L_lgl)
    }
  }
  return(x)
}
share_Ready4useRepos <- function(x,
                                 obj_to_share_xx,
                                 fl_nm_1L_chr,
                                 consent_1L_chr = "",
                                 consent_indcs_int = 1L,
                                 description_1L_chr = NA_character_,
                                 gh_prerelease_1L_lgl = T,
                                 gh_repo_desc_1L_chr = "Supplementary Files",
                                 key_1L_chr = Sys.getenv("DATAVERSE_KEY"),
                                 options_chr = c("Y", "N"),
                                 publish_dv_1L_lgl = T,
                                 type_1L_chr = "prefer_dv",
                                 ...){
  y_Ready4useRecord <- Ready4useRecord(a_Ready4usePointer = Ready4usePointer(b_Ready4useRepos = x),
                                       b_Ready4useIngest = Ready4useIngest(objects_ls = list(obj_to_share_xx) %>% stats::setNames((fl_nm_1L_chr)),
                                                                           descriptions_chr = description_1L_chr))
  y_Ready4useRecord <- ready4::share(y_Ready4useRecord,
                                     consent_1L_chr = consent_1L_chr,
                                     consent_indcs_int = consent_indcs_int,
                                     gh_prerelease_1L_lgl = gh_prerelease_1L_lgl,
                                     gh_repo_desc_1L_chr = gh_repo_desc_1L_chr,
                                     key_1L_chr = key_1L_chr,
                                     options_chr = options_chr,
                                     publish_dv_1L_lgl = publish_dv_1L_lgl,
                                     type_1L_chr = type_1L_chr)
  return(y_Ready4useRecord)
}