R/C4_Ready4useRepos.R

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

#' Ready4useRepos
#' 
#' Metadata about online data repositories.
#' 
#' @slot dv_nm_1L_chr Dataverse name (a character vector of length one)
#' @slot dv_ds_metadata_ls Dataverse dataset metadata (a list)
#' @slot dv_ds_nm_1L_chr Dataverse dataset name (a character vector of length one)
#' @slot dv_server_1L_chr Dataverse server (a character vector of length one)
#' @slot dv_url_pfx_1L_chr Dataverse url prefix (a character vector of length one)
#' @slot fl_nms_chr File names (a character vector)
#' @slot gh_repo_1L_chr Github repository (a character vector of length one)
#' @slot gh_tag_1L_chr Github tag (a character vector of length one)
#' @slot dissemination_1L_chr Dissemination (a character vector of length one)
#' @import ready4
#' @name Ready4useRepos-class
#' @rdname Ready4useRepos-class
#' @export Ready4useRepos
#' @exportClass Ready4useRepos
Ready4useRepos <- methods::setClass("Ready4useRepos",
contains = "Ready4Module",
slots = c(dv_nm_1L_chr = "character",dv_ds_metadata_ls = "list",dv_ds_nm_1L_chr = "character",dv_server_1L_chr = "character",dv_url_pfx_1L_chr = "character",fl_nms_chr = "character",gh_repo_1L_chr = "character",gh_tag_1L_chr = "character",dissemination_1L_chr = "character"),
prototype =  list(dv_nm_1L_chr = NA_character_,dv_ds_metadata_ls = list(list()),dv_ds_nm_1L_chr = NA_character_,dv_server_1L_chr = NA_character_,dv_url_pfx_1L_chr = NA_character_,fl_nms_chr = NA_character_,gh_repo_1L_chr = NA_character_,gh_tag_1L_chr = NA_character_))


methods::setValidity(methods::className("Ready4useRepos"),
function(object){
msg <- NULL
if (is.null(msg)) TRUE else msg
})