R/jsonstat-collection.R

In jsonstat: Interface to 'JSON-stat'

#' Convert data set into JSON-stat collection
#'
#' @param ... a named list, the function creates a collection
#'   based on user input like the same way as `list`.
#' @param label label of dataset
#' @param href href of dataset, "" by default
#' @param src source of dataset, NULL by default
#' @param extension user data, NULL by default
#' @param updated a timestamp for data, NULL by default
#' @importFrom rlang enquos
#' @export
as.collection <- function(...,
                          label = "",
                          href = "",
                          src = NULL,
                          extension = NULL,
                          updated = NULL) {
  version = "2.0"
  if (is.null(updated)) {
    updated = as.character(Sys.time())
  }
  stopifnot(inherits(updated, "character"))

  v <- list()
  v$version <- jsonlite::unbox(version)
  v$class <- jsonlite::unbox("collection")
  v$label <- jsonlite::unbox(label)
  v$href <- jsonlite::unbox(href)
  v$updated <- jsonlite::unbox(updated)
  if (!is.null(src)) {
    v$source <- autounbox(src)
  }
  if (!is.null(extension)) {
    v$extension <- autounbox(extension)
  }

  .dots <- list(...)
  for (.name in names(.dots)) {
    if (is.null(.dots[[.name]])) {
      next
    }
    stopifnot(inherits(.dots[[.name]], "jsonstat.dataset"))
  }
  v$link$item <- unname(.dots)

  structure(v, class = c("jsonstat.collection", "list"))
}

#verify.jsonstat.collection <- function(.collection) {
#  warning("not implemented yet")
#}