Suppress testing of all examples that make internet calls

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ngramr
 Type: Package
 Title: Retrieve and Plot Google n-Gram Data
-Version: 1.8.1
+Version: 1.8.2
 Date: 2022-09-10
 Authors@R: c(
     person("Sean", "Carmody", email = "[email protected]", role = c("aut", "cre", "cph"))

NEWS.md

@@ -1,3 +1,7 @@
+# ngramr 1.8.2
+
+* Suppress testing of all examples that make internet calls
+
 # ngramr 1.8.1
 
 * Handle offline state

R/ggram.R

@@ -21,8 +21,8 @@
 #'  Google will update these datasets as book scanning continues.
 #'
 #' @examples
-#' library(ggplot2)
-#'\donttest{ggram(c("hacker", "programmer"), year_start = 1950)
+#' \donttest{library(ggplot2)
+#' ggram(c("hacker", "programmer"), year_start = 1950)
 #'
 #' # Changing the geom.
 #' ggram(c("cancer", "fumer", "cigarette"),
@@ -54,9 +54,10 @@
 #'       "((The United States are + The United States have) / The United States)")
 #' ggram(p, year_start = 1800, google_theme = TRUE) +
 #'       theme(legend.direction="vertical")
-#'}
+#'
 #' # Pass ngram data rather than phrases
 #' ggram(hacker) + facet_wrap(~ Corpus)
+#'}
 #' @export
 
 ggram <- function(phrases, ignore_case = FALSE, code_corpus = FALSE,

R/methods.R

@@ -6,8 +6,9 @@
 #' @export
 #' @method print ngram
 #' @examples
-#' x <- ngram(c("hacker", "programmer"), year_start = 1950)
+#' \donttest{x <- ngram(c("hacker", "programmer"), year_start = 1950)
 #' print(x)
+#' }
 
 print.ngram <- function(x, rows=6, ...) {
   df <- x