Use roxygenlabs for examplesIf

DESCRIPTION

@@ -19,5 +19,5 @@ Imports:
     jsonlite,
     httr
 RoxygenNote: 7.0.2.9000
-Roxygen: list(markdown = TRUE)
+Roxygen: { loadNamespace("roxygenlabs"); list(markdown = TRUE) }
 Encoding: UTF-8

R/gh_whoami.R

@@ -37,14 +37,14 @@
 #' @return A `gh_response` object, which is also a `list`.
 #' @export
 #'
-#' @examples
-#' \dontrun{
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true")
 #' gh_whoami()
 #'
+#' @examplesIf FALSE
 #' ## explicit token + use with GitHub Enterprise
 #' gh_whoami(.token = "8c70fd8419398999c9ac5bacf3192882193cadf2",
 #'           .api_url = "https://github.foobar.edu/api/v3")
-#' }
+
 gh_whoami <- function(.token = NULL, .api_url = NULL, .send_headers = NULL) {
   .token <- .token %||% gh_token()
   if (isTRUE(.token == "")) {

R/git.R

@@ -7,10 +7,9 @@
 #' @return If the repo has a github remote, a list containing `username`
 #'    and `repo`. Otherwise, an error.
 #' @export
-#' @examples
-#' \dontrun{
+#' @examplesIf interactive()
 #' gh_tree_remote()
-#' }
+
 gh_tree_remote <- function(path = ".") {
   github_remote(git_remotes(path))
 }

R/package.R

@@ -71,8 +71,7 @@
 #' @importFrom utils URLencode capture.output
 #' @export
 #' @seealso [gh_whoami()] for details on GitHub API token management.
-#' @examples
-#' \dontrun{
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true")
 #' ## Repositories of a user, these are equivalent
 #' gh("/users/hadley/repos")
 #' gh("/users/:username/repos", username = "hadley")
@@ -81,10 +80,12 @@
 #' gh("/users/hadley/starred")
 #' gh("/users/:username/starred", username = "hadley")
 #'
+#' @examplesIf FALSE
 #' ## Create a repository, needs a token in GITHUB_PAT (or GITHUB_TOKEN)
 #' ## environment variable
 #' gh("POST /user/repos", name = "foobar")
 #'
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true")
 #' ## Issues of a repository
 #' gh("/repos/hadley/dplyr/issues")
 #' gh("/repos/:owner/:repo/issues", owner = "hadley", repo = "dplyr")
@@ -93,22 +94,23 @@
 #' users <- gh("/users", .limit = 50)
 #' length(users)
 #'
+#' @examplesIf FALSE
 #' ## Access developer preview of Licenses API (in preview as of 2015-09-24)
-#' gh("/licenses") # error code 415
+#' gh("/licenses") # used to error code 415
 #' gh("/licenses",
 #'    .send_headers = c("Accept" = "application/vnd.github.drax-preview+json"))
 #'
+#' @examplesIf FALSE
 #' ## Access Github Enterprise API
 #' ## Use GITHUB_API_URL environment variable to change the default.
 #' gh("/user/repos", type = "public", .api_url = "https://github.foobar.edu/api/v3")
 #'
+#' @examplesIf FALSE
 #' ## Use I() to force body part to be sent as an array, even if length 1
 #' ## This works whether assignees has length 1 or > 1
 #' assignees <- "gh_user"
 #' assignees <- c("gh_user1", "gh_user2")
 #' gh("PATCH /repos/OWNER/REPO/issues/1", assignees = I(assignees))
-#' }
-#'
 
 gh <- function(endpoint, ..., per_page = NULL, .token = NULL, .destfile = NULL,
                .overwrite = FALSE, .api_url = NULL, .method = "GET",

R/pagination.R

@@ -70,13 +70,11 @@ gh_link <- function(gh_response, link) {
 #'
 #' @name gh_next
 #' @export
-#' @examples
-#' \dontrun{
+#' @examplesIf identical(Sys.getenv("IN_PKGDOWN"), "true")
 #' x <- gh("/users")
-#' sapply(x, "[[", "login")
+#' vapply(x, "[[", character(1), "login")
 #' x2 <- gh_next(x)
-#' sapply(x2, "[[", "login")
-#' }
+#' vapply(x2, "[[", character(1), "login")
 
 gh_next <- function(gh_response) gh_link(gh_response, "next")