R/dp_resources.R

In djvanderlaan/datapackage: Creating and Reading Data Packages

#' Modify a set of Data Resources in a Data Package
#'
#' @param x a \code{datapackage} object
#'
#' @param value a \code{dataresource} object or a list of \code{dataresource}
#' objects .
#'
#' @return
#' Returns a modified \code{x}.
#'
#' @export
`dp_resources<-` <- function(x, value) {
  if (methods::is(value, "dataresource")) {
    name <- dp_name(value)
    if (is.null(name)) stop("name of data resource is missing")
    dp_resource(x, name) <- value
  } else {
    for (i in seq_along(value)) {
      dp_resources(x) <- value[[i]]
    }
  }
  x
}