added #' \dontrun{

Author: Guy Davenport

pkg/R/authentication.R

@@ -333,7 +333,9 @@ OAuthClientCredentials <- R6Class(
 #' @family utilities
 #' @keywords utility
 #' @examples
+#' \dontrun{
 #' guess_username()
+#' ' }
 guess_username <- function() {
   # rstudio server
   username <- unname(Sys.getenv("LOGNAME"))

pkg/tests/testthat/test-getBrAPI.R

@@ -1,3 +1,3 @@
 test_that("getBrAPI works", {
-  brapi <- getBrAPI()
+  brapi <- getBrAPI("http://www.example.org/", dry_run = TRUE)
 })