fix ropensci#97 add key param to package_show

R/package_show.R

@@ -6,12 +6,13 @@
 #' @param use_default_schema (logical) Use default package schema instead of a
 #'   custom schema defined with an IDatasetForm plugin. Default: FALSE
 #' @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 \code{as = 'json'}
 #'   then parse yourself to get the help slot.
 #' @examples \dontrun{
 #' # Setup
-#' ckanr_setup(url = "http://demo.ckan.org/", key = getOption("ckan_demo_key"))
+#' ckanr_setup(url = "https://demo.ckan.org/", key = getOption("ckan_demo_key"))
 #'
 #' # create a package
 #' (res <- package_create("purposeful55"))
@@ -30,9 +31,12 @@
 #' package_show(res$id, TRUE)
 #' }
 package_show <- function(id, use_default_schema = FALSE,
-                         url = get_default_url(), as = 'list', ...) {
+                         url = get_default_url(), key = get_default_key(),
+                         as = 'list', ...) {
+
   id <- as.ckan_package(id, url = url)
   args <- cc(list(id = id$id, use_default_schema = use_default_schema))
-  res <- ckan_GET(url, 'package_show', args, key = NULL, ...)
-  switch(as, json = res, list = as_ck(jsl(res), "ckan_package"), table = jsd(res))
+  res <- ckan_GET(url, 'package_show', args, key = key, ...)
+  switch(as, json = res, list = as_ck(jsl(res), "ckan_package"),
+         table = jsd(res))
 }