Nothing
#' Show an organization
#'
#' @export
#'
#' @param id (character) Organization id or name.
#' @param include_datasets (logical). Whether to include a list of the
#' organization datasets
#' @template args
#' @template key
#' @details By default the help and success slots are dropped, and only the
#' result slot is returned. You can request raw json with `as = 'json'`
#' then parse yourself to get the help slot.
#' @examples \dontrun{
#' ckanr_setup(url = "https://demo.ckan.org/", key = getOption("ckan_demo_key"))
#'
#' res <- organization_create("stuffthings2")
#' organization_show(res$id)
#' }
organization_show <- function(id, include_datasets = FALSE,
url = get_default_url(), key = get_default_key(), as = 'list', ...) {
id <- as.ckan_organization(id, url = url)
args <- cc(list(id = id$id, include_datasets = include_datasets))
res <- ckan_GET(url, 'organization_show', args, key = key, opts = list(...))
switch(as, json = res, list = as_ck(jsl(res), "ckan_organization"),
table = jsd(res))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.