update zenodo licenses for #91

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: deposits
 Title: A universal client for depositing and accessing research data
     anywhere
-Version: 0.2.1.053
+Version: 0.2.1.054
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/ropenscilabs/deposits",
   "issueTracker": "https://github.com/ropenscilabs/deposits/issues",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.2.1.053",
+  "version": "0.2.1.054",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

data-raw/get-zenodo-licenses.R

@@ -1,11 +1,16 @@
 token <- Sys.getenv ("ZENODO_TOKEN")
-url <- "https://zenodo.org/api/licenses?size=1000"
+url <- "https://zenodo.org/api/licenses"
 headers <- list (Authorization = paste0 ("Bearer ", token))
-con <- crul::HttpClient$new (url, headers = headers)
-res <- con$get ()
-lic <- jsonlite::fromJSON (res$parse (encoding = "UTF-8"))
-lic <- lic$hits$hits$metadata
-lic <- lic [, c ("id", "title", "url")]
+req <- httr2::request (url)
+req <- httr2::req_method (req, "GET")
+req <- httr2::req_url_query (req, size = 1000)
+resp <- httr2::req_perform (req)
+resp_body <- httr2::resp_body_json (resp, simplify = TRUE)
+
+lic <- resp_body$hits$hits [, c ("id", "title", "links")]
+lic$title <- unlist (lic$title)
+lic$links <- unlist (lic$links)
+names (lic) [3] <- "url"
 
 path <- fs::path (here::here (), "inst", "extdata", "zenodo", "zenodo_licenses.csv")
 write.csv (lic, file = path, row.names = FALSE, fileEncoding = "UTF-8")