Skip to content
Browse files

Don't use loop_apply examples

  • Loading branch information...
1 parent c06df49 commit 2ae5e8ec5ac55cc664a21f28fb39bf9c786601a6 @hadley committed Jan 2, 2014
Showing with 0 additions and 31 deletions.
  1. +0 −10 R/RcppExports.R
  2. +0 −11 man/loop_apply.Rd
  3. +0 −10 src/loop-apply.cpp
View
10 R/RcppExports.R
@@ -11,16 +11,6 @@
#' @param env environment in which to evaluate function
#' @useDynLib plyr
#' @keywords internal manip
-#' @examples
-#' loop_apply(10, function(x) x ^ 2)
-#' y <- 10
-#' loop_apply(10, function(x) x + y)
-#'
-#' f <- function() {
-#' y <- 100
-#' loop_apply(10, function(x) x + y)
-#' }
-#' f()
loop_apply <- function(n, f) {
.Call('plyr_loop_apply', PACKAGE = 'plyr', n, f)
}
View
11 man/loop_apply.Rd
@@ -15,17 +15,6 @@ loop_apply(n, f)
An optimised version of lapply for the special case of
operating on \code{seq_len(n)}
}
-\examples{
-loop_apply(10, function(x) x ^ 2)
-y <- 10
-loop_apply(10, function(x) x + y)
-
-f <- function() {
- y <- 100
- loop_apply(10, function(x) x + y)
-}
-f()
-}
\keyword{internal}
\keyword{manip}
View
10 src/loop-apply.cpp
@@ -11,16 +11,6 @@ using namespace Rcpp;
//' @param env environment in which to evaluate function
//' @useDynLib plyr
//' @keywords internal manip
-//' @examples
-//' loop_apply(10, function(x) x ^ 2)
-//' y <- 10
-//' loop_apply(10, function(x) x + y)
-//'
-//' f <- function() {
-//' y <- 100
-//' loop_apply(10, function(x) x + y)
-//' }
-//' f()
// [[Rcpp::export]]
List loop_apply(int n, Function f) {
List out(n);

0 comments on commit 2ae5e8e

Please sign in to comment.
Something went wrong with that request. Please try again.