\dontrun{} examples requiring authentication

R/genesys.R

@@ -34,9 +34,11 @@ me <- function() {
 #' @seealso \code{\link{mcpd_filter}}
 #'
 #' @examples
+#' \dontrun{
 #'   # Retrieve accession data by country of origin
 #'   accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")))
-#'
+#' }
+#' 
 #' @return Paged data structure
 .fetch_accessions_page <- function(filters = list(), page = 0, size = 1000, selector = NULL) {
   start_time <- as.numeric(as.numeric(Sys.time())*1000, digits=15)
@@ -64,6 +66,7 @@ me <- function() {
 #' @param at.least stop fetching when at.least records are received from Genesys
 #'
 #' @examples
+#' \dontrun{
 #'   # Retrieve all accession data by country of origin
 #'   accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")))
 #'
@@ -74,7 +77,8 @@ me <- function() {
 #'   accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")), selector = function(x) {
 #'     list(id = x$id, acceNumb = x$acceNumb, instCode = x$institute$code)
 #'   })
-#'
+#' }
+#' 
 #' @export
 #' @return Paged data structure
 fetch_accessions <- function(filters = list(), page = NULL, size = 1000, selector = NULL, at.least = NULL) {