R/coercion-methods.R

In bheavner/minidtools: Working with the BD2K Minimal Viable Identifier

# coerce minid object to other data types

#' @include AllClasses.R
#' @include AllGenerics.R
NULL

# minid to list --------------------------------------------------
#' as.list
#'
#' Coerce minid object to list
#'
#' @param x minid object
#'
#' @return a named list
#'
#' @examples
#' \dontrun{
#' as.list(minid_object)
#' }
#'
#' @import methods
#' @export
setMethod("as.list",
          signature = "minid",
          function(x) {
            list(identifier = identifier(x),
                 short_identifier = short_identifier(x),
                 creator = creator(x),
                 orcid = orcid(x),
                 created = created(x),
                 checksum = checksum(x),
                 checksum_function = checksum_function(x),
                 status = status(x),
                 locations = locations(x),
                 titles = titles(x),
                 obsoleted_by = obsoleted_by(x),
                 content_key = content_key(x))
          }
)

# configuration to list --------------------------------------------------
#' as.list
#'
#' Coerce configuration object to list
#'
#' @param x configuration object
#'
#' @return a named list
#'
#' @examples
#' \dontrun{
#' as.list(configuration_object)
#' }
#'
#' @import methods
#' @export
setMethod("as.list",
          signature = "configuration",
          function(x) {
            list(server = server(x),
                 user = user(x),
                 email = email(x),
                 orcid = orcid(x),
                 code = code(x))
          }
)