Eliminate slow examples

kvpradap · Aug 27, 2015 · f4bf9d2 · f4bf9d2
1 parent 61b04c7
commit f4bf9d2
Show file tree

Hide file tree

Showing 8 changed files with 14 additions and 2 deletions.
diff --git a/R/compute-collect.r b/R/compute-collect.r
@@ -19,10 +19,10 @@
 #'   takes a local data frame and makes it available to the remote source.
 #' @export
 #' @examples
+#' \donttest{
 #' if (require("RSQLite") && has_lahman("sqlite")) {
 #'   batting <- tbl(lahman_sqlite(), "Batting")
 #'   remote <- select(filter(batting, yearID > 2010 && stint == 1), playerID:H)
-#' \donttest{
 #'   remote2 <- collapse(remote)
 #'   cached <- compute(remote)
 #'   local  <- collect(remote)

diff --git a/R/data-lahman.r b/R/data-lahman.r
@@ -17,6 +17,7 @@
 #' @keywords internal
 #' @examples
 #' # Connect to a local sqlite database, if already created
+#' \donttest{
 #' if (has_lahman("sqlite")) {
 #'   lahman_sqlite()
 #'   batting <- tbl(lahman_sqlite(), "Batting")
@@ -28,6 +29,7 @@
 #'   lahman_postgres()
 #'   batting <- tbl(lahman_postgres(), "Batting")
 #' }
+#' }
 #' @name lahman
 NULL
 

diff --git a/R/explain.r b/R/explain.r
@@ -14,6 +14,7 @@
 #' @param x An object to explain
 #' @param ... Other parameters possibly used by generic
 #' @examples
+#' \donttest{
 #' if (require("RSQLite") && has_lahman("sqlite")) {
 #'
 #' lahman_s <- lahman_sqlite()
@@ -32,6 +33,7 @@
 #' teams <- tbl(lahman_s, "Teams")
 #' batting %>% left_join(teams, c("yearID", "teamID")) %>% explain()
 #' }
+#' }
 explain <- function(x, ...) {
   UseMethod("explain")
 }

diff --git a/R/glimpse.R b/R/glimpse.R
@@ -12,10 +12,12 @@
 #' @examples
 #' glimpse(mtcars)
 #'
+#' \donttest{
 #' if (require("RSQLite") && has_lahman("sqlite")) {
 #'   batting <- tbl(lahman_sqlite(), "Batting")
 #'   glimpse(batting)
 #' }
+#' }
 glimpse <- function(tbl, width = getOption("width")) {
   cat("Observations: ", big_mark(nrow(tbl)), "\n", sep = "")
   if (ncol(tbl) == 0) return(invisible())

diff --git a/man/compute.Rd b/man/compute.Rd
@@ -41,10 +41,10 @@ restrictions can be placed on.
 it.
 }
 \examples{
+\donttest{
 if (require("RSQLite") && has_lahman("sqlite")) {
   batting <- tbl(lahman_sqlite(), "Batting")
   remote <- select(filter(batting, yearID > 2010 && stint == 1), playerID:H)
-\donttest{
   remote2 <- collapse(remote)
   cached <- compute(remote)
   local  <- collect(remote)

diff --git a/man/explain.Rd b/man/explain.Rd
@@ -27,6 +27,7 @@ how \code{EXPLAIN} works for your database, but is very useful for
 diagnosing performance problems.
 }
 \examples{
+\donttest{
 if (require("RSQLite") && has_lahman("sqlite")) {
 
 lahman_s <- lahman_sqlite()
@@ -46,4 +47,5 @@ teams <- tbl(lahman_s, "Teams")
 batting \%>\% left_join(teams, c("yearID", "teamID")) \%>\% explain()
 }
 }
+}
 
diff --git a/man/glimpse.Rd b/man/glimpse.Rd
@@ -21,9 +21,11 @@ the underlying data, even when applied to a remote data source.)
 \examples{
 glimpse(mtcars)
 
+\donttest{
 if (require("RSQLite") && has_lahman("sqlite")) {
   batting <- tbl(lahman_sqlite(), "Batting")
   glimpse(batting)
 }
 }
+}
 
diff --git a/man/lahman.Rd b/man/lahman.Rd
@@ -49,6 +49,7 @@ for that package for documentation of the inidividual tables.
 }
 \examples{
 # Connect to a local sqlite database, if already created
+\donttest{
 if (has_lahman("sqlite")) {
   lahman_sqlite()
   batting <- tbl(lahman_sqlite(), "Batting")
@@ -61,5 +62,6 @@ if (has_lahman("postgres")) {
   batting <- tbl(lahman_postgres(), "Batting")
 }
 }
+}
 \keyword{internal}