Tweak example run times

Aprilara · Jun 15, 2015 · 094b601 · 094b601
1 parent ed6c336
commit 094b601
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 6 deletions.
diff --git a/R/compute-collect.r b/R/compute-collect.r
@@ -22,10 +22,12 @@
 #' 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)
 #' }
+#' }
 compute <- function(x, name = random_table_name(), ...) {
   UseMethod("compute")
 }

diff --git a/R/tbl-df.r b/R/tbl-df.r
@@ -46,11 +46,13 @@
 #'  rank(desc(AB)), cumsum(AB))
 #'
 #' # When you group by multiple level, each summarise peels off one level
+#' \donttest{
 #' per_year <- group_by(batting, playerID, yearID)
 #' stints <- summarise(per_year, stints = max(stint))
-#' # filter(stints, stints > 3)
-#' # summarise(stints, max(stints))
-#' # mutate(stints, cumsum(stints))
+#' filter(stints, stints > 3)
+#' summarise(stints, max(stints))
+#' mutate(stints, cumsum(stints))
+#' }
 #'
 #' # Joins ---------------------------------------------------------------------
 #' player_info <- select(tbl_df(Master), playerID, birthYear)

diff --git a/man/compute.Rd b/man/compute.Rd
@@ -44,11 +44,13 @@ it.
 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)
 }
 }
+}
 \seealso{
 \code{\link{copy_to}} which is the conceptual opposite: it
   takes a local data frame and makes it available to the remote source.

diff --git a/man/tbl_df.Rd b/man/tbl_df.Rd
@@ -55,11 +55,13 @@ progress <- mutate(players, cyear = yearID - min(yearID) + 1,
  rank(desc(AB)), cumsum(AB))
 
 # When you group by multiple level, each summarise peels off one level
+\donttest{
 per_year <- group_by(batting, playerID, yearID)
 stints <- summarise(per_year, stints = max(stint))
-# filter(stints, stints > 3)
-# summarise(stints, max(stints))
-# mutate(stints, cumsum(stints))
+filter(stints, stints > 3)
+summarise(stints, max(stints))
+mutate(stints, cumsum(stints))
+}
 
 # Joins ---------------------------------------------------------------------
 player_info <- select(tbl_df(Master), playerID, birthYear)