R/get_citation.R

In SimonGreenhill/rcldf: rcldf - Read Linguistic Data In The Cross Linguistic Data Format (CLDF)

#' Prints and returns the Citation for the given CLDF dataset
#'
#' @param obj A CLDF object
#' @return An (invisible) string containing the citation text
#' @export
#' @examples
#' cldfobj <- cldf(system.file("extdata/huon", "cldf-metadata.json", package = "rcldf"))
#' get_citation(cldfobj)
get_citation <- function(obj){
    if (!inherits(obj, "cldf")) stop("'obj' must inherit from class cldf")
    cat(obj$metadata$`dc:bibliographicCitation`)
    invisible(obj$metadata$`dc:bibliographicCitation`)
}