Resolve CRAN check problems

R/CNode.R

@@ -240,11 +240,12 @@ setMethod("getFormat", signature("CNode"), function(x, formatId) {
 
 #' @rdname getChecksum
 #' @export
-#' @examples
+#' @examples \dontrun{
 #' pid <- "doi:10.5063/F1QN64NZ"
 #' cn <- CNode()
 #' pid <- "doi:10.5063/F1QN64NZ"
 #' chksum <- getChecksum(cn, pid)
+#' }
 setMethod("getChecksum", signature("CNode"), function(x, pid, ...) {
   url <- paste(x@endpoint, "checksum", URLencode(pid, reserved=T), sep="/")
   response <- GET(url, user_agent(get_user_agent()))
@@ -480,11 +481,12 @@ setMethod("getObject", signature("CNode"), function(x, pid) {
 #' @import datapack
 #' @export
 #' @rdname getSystemMetadata
-#' @examples
+#' @examples \dontrun{
 #' library(dataone)
 #' cn <- CNode()
 #' pid <- "aceasdata.3.2"
 #' sysmeta <- getSystemMetadata(cn, pid)
+#' }
 setMethod("getSystemMetadata", signature("CNode"), function(x, pid) {
   stopifnot(is.character(pid))
     # TODO: need to properly URL-escape the PID

R/D1Node.R

@@ -228,12 +228,13 @@ setGeneric("getObject", function(x, ...) {
 #' @return character the checksum value, with the checksum algorithm as the attribute "algorithm"
 #' @seealso \code{\link{D1Node-class}{D1Node}}{ class description.}
 #' @export
-#' @examples 
+#' @examples \dontrun{ 
 #' library(dataone)
 #' cn <- CNode()
 #' mn <- getMNode(cn, "urn:node:KNB")
 #' pid <- "doi:10.5063/F1QN64NZ"
 #' chksum <- getChecksum(mn, pid)
+#' }
 setGeneric("getChecksum", function(x, ...) {
   standardGeneric("getChecksum")
 })
@@ -320,12 +321,13 @@ setMethod("getQueryEngineDescription", signature("D1Node"), function(x, queryEng
 #' @return SystemMetadata for the object
 #' @import datapack
 #' @export
-#' @examples 
+#' @examples \dontrun{ 
 #' library(dataone)
 #' cn <- CNode()
 #' mn <- getMNode(cn, "urn:node:KNB")
 #' pid <- "doi:10.5063/F1QN64NZ"
 #' sysmeta <- getSystemMetadata(mn, pid)
+#' }
 setGeneric("getSystemMetadata", function(x, ...) {
   standardGeneric("getSystemMetadata")
 })

tests/testthat/test.CNode.R

@@ -37,6 +37,10 @@ test_that("CNode getObject()", {
   #cn <- CNode("PROD")
   pid <- "aceasdata.3.2"
   obj <- getObject(cnProd, pid)
+  if(is.null(obj) || class(obj) != "raw") {
+      skip_on_cra()
+      skip(sprintf("Unable to retrieve pid %s from production CN, skipping test\n", pid))
+  }
   xml <- xmlParseDoc(rawToChar(obj), asText=TRUE)
   cname <- class(xml)[1]
   expect_match(cname, "XML")