## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(cache=TRUE)

## ----warning=FALSE,eval=FALSE,message=FALSE,cache=F---------------------------
# library(dataone)
# cn <- CNode("PROD")
# # Ask for the id, title and abstract
# queryParams <- list(q="abstract:kelp", fq="attribute:biomass", fq="id:doi*",
#                     fq="formatType:METADATA", fl="id,title,abstract")
# result <- query(cn, solrQuery=queryParams, as="data.frame", parse=FALSE)
# result[1,c("id", "title")]

## ----eval=FALSE, cache=F------------------------------------------------------
#  pid <- result[1,'id']

## ----warning=FALSE, eval=FALSE, cache=F---------------------------------------
# locations <- resolve(cn, pid)
# mnId <- locations$data[2, "nodeIdentifier"]
# mn <- getMNode(cn, mnId)

## ----warning=FALSE,eval=FALSE,cache=F-----------------------------------------
# obj <- getObject(mn, pid)

## ----warning=FALSE, eval=FALSE, message=FALSE, cache=F------------------------
# # Query the data holdings on a member node
# cn <- CNode("PROD")
# mn <- getMNode(cn, "urn:node:KNB")
# queryParams <- list(q="abstract:habitat", fl="id,title,abstract")
# result <- query(mn, queryParams, as="data.frame", parse=FALSE)
# # Choose the first matchin PID
# pid <- result[1,'id']
# obj <- getObject(mn, pid)

## ----warning=FALSE, eval=FALSE, message=FALSE, cache=F------------------------
# d1c <- D1Client("PROD", "urn:node:KNB")
# # Ask for the id, title and abstract
# queryParams <- list(q="abstract:\"biogenic hydrocarbon\"", fq="id:doi*",
#                     fq="formatType:METADATA", fl="id,title")
# result <- query(d1c@mn, solrQuery=queryParams, as="data.frame", parse=FALSE)
# pid <- result[1,'id']
# dataObj <- getDataObject(d1c, pid)
# bytes <- getData(dataObj)
# metadataXML <- rawToChar(bytes)

## ----eval=FALSE, cache=F------------------------------------------------------
# dataBytes <- getData(dataObj)

## ----eval=FALSE, cache=F------------------------------------------------------
# str(dataObj@sysmeta)

## ----eval=FALSE, cache=F------------------------------------------------------
# cn <- CNode()
# mn <- getMNode(cn, "urn:node:KNB")
# queryParamList <- list(q="id:Blandy.77.1", fl="resourceMap")
# result <- query(cn, solrQuery=queryParamList, as="data.frame")
# packagePid <- result[1,1]

## ----eval=FALSE, cache=F------------------------------------------------------
# cn <- CNode()
# mn <- getMNode(cn, "urn:node:KNB")
# bagitFileName <- getPackage(mn, id=packagePid)

