Merge pull request #325 from DOI-USGS/v1.3.2

V1.3.2

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: sbtools
 Title: USGS ScienceBase Tools
 Maintainer: David Blodgett <dblodgett@usgs.gov>
-Version: 1.3.1
+Version: 1.3.2
 Authors@R: c(person("David", "Blodgett", role=c("cre"),
     email = "dblodgett@usgs.gov"),
     person("Luke", "Winslow", role = c("aut"),

NEWS.md

@@ -1,3 +1,11 @@
+# version 1.3.2
+
+- `item_rm_files()` now uses cloud end point. #315
+- `initialize_sciencebase_session()` has less warnings. #319 and #323
+- `initialize_sciencebase_session()` works at the terminal now. #317
+- `initialize_sciencebase_session()` caching works better. #318
+- improve test coverage #316
+
 # version 1.3.1
 
 Improved handling of cached token.

R/identifier_exists.R

@@ -12,7 +12,7 @@
 #' @return Logical, \code{TRUE} or \code{FALSE}
 #' @examples \donttest{
 #' # identifier exists
-#' identifier_exists(sb_id = "4f4e4b24e4b07f02db6aea14")
+#' identifier_exists(sb_id = "57976a0ce4b021cadec97890")
 #' 
 #' # identifier does not exist
 #' identifier_exists(sb_id = "aaaaaaakkkkkkkbbbbbb")

R/item_get.R

@@ -52,9 +52,9 @@ get_item <- function(id, ...) {
 #' 
 #' @export
 #' @examples \donttest{
-#' item_get_parent("4f4e4b24e4b07f02db6aea14")
+#' item_get_parent("57976a0ce4b021cadec97890")
 #' 
-#' item_get_parent(item_get("4f4e4b24e4b07f02db6aea14"))
+#' item_get_parent(item_get("57976a0ce4b021cadec97890"))
 #' }
 item_get_parent = function(sb_id, ...) {
 	res <- as.sbitem(sb_id, ...)

R/item_list_files.R

@@ -27,10 +27,10 @@
 #' @examples \dontrun{
 #' 
 #' #regular files
-#' item_list_files("4f4e4b24e4b07f02db6aea14")
+#' item_list_files("57976a0ce4b021cadec97890")
 #' 
 #' # files in facets
-#' item_list_files("5f6a285d82ce38aaa244912e")
+#' item_list_files("5ebe92af82ce476925e44b8f")
 #' 
 #' # list files recursively
 #' ## create item

R/sb_item.R

@@ -8,20 +8,20 @@
 #' the method for character class inputs
 #' @examples \donttest{
 #' # Single item from item_get()
-#' item_get("4f4e4b24e4b07f02db6aea14")
+#' item_get("57976a0ce4b021cadec97890")
 #' 
 #' # Get many w/ e.g., an lapply() call
 #' library("httr")
 #' res <- query_items(list(s = "Search", q = "water", format = "json"))
-#' if(res$status != 404) {
+#' if(res$status == 200) {
 #'   ids <- vapply(httr::content(res)$items, "[[", "", "id")
 #'   (out <- lapply(ids[1:3], item_get))
 #' }
 #' # create item class from only an item ID
-#' as.sbitem("4f4e4b24e4b07f02db6aea14")
+#' as.sbitem("5ebe92af82ce476925e44b8f")
 #' 
 #' # sbitem gives back itself
-#' (x <- as.sbitem("4f4e4b24e4b07f02db6aea14"))
+#' (x <- as.sbitem("5ebe92af82ce476925e44b8f"))
 #' as.sbitem(x)
 #' }