import dataone into is_public_read so that we can use dataone:: inste…

…ad of dataone:::. Export is_resource_map so it can be used

R/access.R

@@ -575,6 +575,7 @@ remove_public_read <- function(mn, pids) {
 #' @return (logical) Whether an object has public read access.
 #'
 #' @importFrom httr content
+#' @import dataone
 #'
 #' @export
 #'
@@ -603,10 +604,10 @@ is_public_read <- function(mn, pids, use.names = TRUE) {
   vapply(pids, USE.NAMES = use.names, FUN.VALUE = logical(1), FUN = function(pid) {
 
     url       <-  paste(mn@endpoint, "meta", utils::URLencode(pid, reserved = TRUE), sep = "/")
-    response  <-  dataone:::auth_get(url, node = mn)
+    response  <-  dataone::auth_get(url, node = mn)
 
     if (response$status_code != "200") {
-      error_desc <- dataone:::getErrorDescription(response)
+      error_desc <- dataone::getErrorDescription(response)
       if (grepl("READ not allowed", error_desc, ignore.case = TRUE)) {
         return(FALSE)
       } else {

R/util.R

@@ -459,6 +459,7 @@ path_join <- function(path_parts=c("")) {
 #' @param pids (character) Vector of PIDs.
 #'
 #' @return (logical) Whether or not the object(s) are resource maps.
+#' @export
 #'
 #' @noRd
 is_resource_map <- function(node, pids) {