R/dashboard_count.R

In ropensci/ckanr: Client for the Comprehensive Knowledge Archive Network ('CKAN') API

#' Number of new activities of an authorized user
#'
#' @export
#'
#' @template args
#' @template key
#' @details Important: Activities from the user herself are not counted by this
#' function even though they appear in the dashboard (users don't want to be
#' notified about things they did themselves).
#'
#' @examples \dontrun{
#' # Setup
#' ckanr_setup(url = "https://demo.ckan.org/", key = getOption("ckan_demo_key"))
#'
#' # count
#' dashboard_count()
#' }
dashboard_count <- function(url = get_default_url(), key = get_default_key(),
  as = 'list', ...) {

  res <- ckan_GET(url, 'dashboard_new_activities_count', list(), key = key,
    opts = list(...))
  switch(as, json = res, list = jsl(res), table = jsd(res))
}