#' Show a tag.
#'
#' @export
#'
#' @param id (character) The name or id of the tag
#' @param include_datasets include a list of up to 1000 of the tag's datasets.
#' Limit 1000 datasets, use [package_search()] for more.
#' (optional, default: `FALSE`)
#' @template args
#' @template key
#' @examples \dontrun{
#' # get tags with tag_list()
#' tags <- tag_list()
#' tags[[30]]$id
#'
#' # show a tag
#' (x <- tag_show(tags[[30]]$id))
#'
#' # give back different data formats
#' tag_show(tags[[30]]$id, as = 'json')
#' tag_show(tags[[30]]$id, as = 'table')
#' }
tag_show <- function(id, include_datasets = FALSE, url = get_default_url(),
key = get_default_key(), as = 'list', ...) {
id <- as.ckan_tag(id, url = url)
res <- ckan_GET(url, 'tag_show',
query = list(id = id$id, include_datasets = include_datasets), key = key,
opts = list(...))
switch(as, json = res, list = as_ck(jsl(res), "ckan_tag"),
table = jsd(res))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.