update to latest DOI versions

Author: brunj7

R/check_version.R

@@ -15,10 +15,10 @@
 #' \donttest{
 #' # Most data URLs and identifiers work
 #' check_version("https://cn.dataone.org/cn/v2/resolve/urn:uuid:a2834e3e-f453-4c2b-8343-99477662b570")
-#' check_version("doi:10.18739/A2ZF6M")
+#' check_version("doi:10.18739/A2J09W56F")
 #'
 #' # Specify a formatType (data, metadata, or resource)
-#' check_version("doi:10.18739/A2ZF6M", formatType = "metadata")
+#' check_version("doi:10.18739/A2J09W56F", formatType = "metadata")
 #'
 #' # Returns a warning if the identifier has been obsoleted
 #' check_version("doi:10.18739/A2HF7Z", formatType = "metadata")

R/download_d1_data.R

@@ -23,10 +23,10 @@
 #'
 #' @examples
 #' \dontest{
-#' download_d1_data("urn:uuid:a2834e3e-f453-4c2b-8343-99477662b570", path = file.path("."))
+#' download_d1_data("urn:uuid:a2834e3e-f453-4c2b-8343-99477662b570", path = tempdir())
 #' download_d1_data(
 #'    "https://cn.dataone.org/cn/v2/resolve/urn:uuid:a2834e3e-f453-4c2b-8343-99477662b570",
-#'     path = file.path(".")
+#'     path = tempdir()
 #'     )
 #' }
 

R/download_d1_data_pkg.R

@@ -16,8 +16,8 @@
 #'
 #' @examples
 #' \donttest{
-#' download_d1_data_pkg("doi:10.18739/A2028W", ".")
-#' download_d1_data_pkg("https://doi.org/10.18739/A2028W", ".")
+#' download_d1_data_pkg("doi:10.18739/A2CJ87M3J", tempdir())
+#' download_d1_data_pkg("https://doi.org/10.18739/A2CJ87M3J, tempdir())
 #' }
 
 download_d1_data_pkg <- function(meta_obj, path) {