ProjectMOSAIC · klaassenj · Jul 8, 2019 · Jul 19, 2019 · Jul 22, 2019 · Jul 23, 2019
diff --git a/.Rhistory b/.Rhistory
diff --git a/R/binom.test.R b/R/binom.test.R
@@ -175,7 +175,7 @@ setMethod(
   {
     if (is.null(data)) {
       if (! is.null(n)) stop("Improper `n'; did you forget `data = ' perhaps?", call. = FALSE)
-      data <- rlang::fn_env(x)
+      data <- environment(x)
     }
 
     formula <- mosaic_formula_q(x, groups = NULL, max.slots = 1)

diff --git a/R/do.R b/R/do.R
@@ -6,7 +6,6 @@ require(compiler)
 require(rlang)
 parallel::detectCores()
 NA
-
 
 #' Set seed in parallel compatible way
 #'
@@ -270,7 +269,7 @@ print.repeater <- function(x, ...)
   # if each element is a data frame, combine them with bind_rows
   if ( all( sapply( l, is.data.frame ) ) ) {
     return(
-      lapply(l, function(x) {mutate(x, .row= 1:n())}) %>% 
+      parallel::mclapply(l, function(x) {mutate(x, .row= 1:n())}) %>% 
         dplyr::bind_rows() %>% 
         mutate(.index = c(1, 1 + cumsum( diff(.row) != 1 ))) 
     )
@@ -573,4 +572,4 @@ setMethod(
     attr(result, "lazy") <- e2_lazy
     if (out.mode == "data.frame") attr(result, "culler") <- cull
     return(result)
-  })
+  })
diff --git a/RBuildIgnore/Do Profile with Speedup.Rprofvis b/RBuildIgnore/Do Profile with Speedup.Rprofvis
diff --git a/RBuildIgnore/Do Profile.Rprofvis b/RBuildIgnore/Do Profile.Rprofvis
diff --git a/man/mPlotting.Rd b/man/mPlotting.Rd
diff --git a/vignettes/Resampling.Rnw b/vignettes/Resampling.Rnw
@@ -480,14 +480,6 @@ quantiles <- qdata(~ cor, c(.025, .975), data = Mustangs.cor.boot)
 quantiles
 @
 
-<<cor, fig.width=4, fig.height=2, tidy=FALSE>>=
-Mustangs.hist <- mutate(Mustangs.cor.boot, 
-  colorval = cut(cor, c(-Inf, quantiles$quantile, Inf),
-    labels = c("Lower", "Middle", "Upper")))
-gf_histogram(~ cor, data = Mustangs.hist, fill = ~ colorval, n = 50) 
-confint(Mustangs.cor.boot)
-@ 
-
 
 
 

diff --git a/vignettes/figure/bwplot-1.pdf b/vignettes/figure/bwplot-1.pdf
diff --git a/vignettes/figure/coins-hist-1.pdf b/vignettes/figure/coins-hist-1.pdf
diff --git a/vignettes/figure/densityplot-1.pdf b/vignettes/figure/densityplot-1.pdf
diff --git a/vignettes/figure/dot-1.pdf b/vignettes/figure/dot-1.pdf
diff --git a/vignettes/figure/flips-1.pdf b/vignettes/figure/flips-1.pdf
diff --git a/vignettes/figure/hist-1.pdf b/vignettes/figure/hist-1.pdf
diff --git a/vignettes/figure/pbinom-1.pdf b/vignettes/figure/pbinom-1.pdf
diff --git a/vignettes/figure/price-mileage-graph-1.pdf b/vignettes/figure/price-mileage-graph-1.pdf
diff --git a/vignettes/figure/sleep-1.pdf b/vignettes/figure/sleep-1.pdf
diff --git a/vignettes/figure/unnamed-chunk-13-1.pdf b/vignettes/figure/unnamed-chunk-13-1.pdf
diff --git a/vignettes/figure/unnamed-chunk-23-1.pdf b/vignettes/figure/unnamed-chunk-23-1.pdf
diff --git a/vignettes/figure/unnamed-chunk-24-1.pdf b/vignettes/figure/unnamed-chunk-24-1.pdf
diff --git a/vignettes/figure/unnamed-chunk-25-1.pdf b/vignettes/figure/unnamed-chunk-25-1.pdf
diff --git a/vignettes/figure/unnamed-chunk-45-1.pdf b/vignettes/figure/unnamed-chunk-45-1.pdf
diff --git a/vignettes/figure/unnamed-chunk-46-1.pdf b/vignettes/figure/unnamed-chunk-46-1.pdf