data-raw/s4_fns/procure.R

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

procure_Ready4useIngest <- function(x,
                                    fl_nm_1L_chr = NA_character_){
  if(!is.na(fl_nm_1L_chr[1])){
    object_xx <- x@objects_ls %>%
      purrr::pluck(fl_nm_1L_chr)
  }else{
    object_xx <- x@objects_ls
  }
  return(object_xx)
}