The R Project SVN – R – Diff – /trunk/src/library/base/man/source.Rd



withAutoprint({ x <- 1:2; cat("x=",x,"\n"); y <- x^2 })
## x and y now exist:
stopifnot(identical(x, 1:2), identical(y, x^2))
 
withAutoprint({ formals(sourceDir); body(sourceDir) },
              max.deparse.length = 20, verbose = TRUE)
%% --> tests in  ../../../../tests/eval-etc.R
}
\keyword{file}
\keyword{programming}
\keyword{connection}

Rev 80048	Rev 80079
Line 203...	Line 203...
203	`withAutoprint({ x <- 1:2; cat("x=",x,"\n"); y <- x^2 })`	203	`withAutoprint({ x <- 1:2; cat("x=",x,"\n"); y <- x^2 })`
204	`## x and y now exist:`	204	`## x and y now exist:`
205	`stopifnot(identical(x, 1:2), identical(y, x^2))`	205	`stopifnot(identical(x, 1:2), identical(y, x^2))`
206		206
207	`withAutoprint({ formals(sourceDir); body(sourceDir) },`	207	`withAutoprint({ formals(sourceDir); body(sourceDir) },`
208	`max.dep = 20, verbose = TRUE)`	208	`max.deparse.length = 20, verbose = TRUE)`
209	`%% --> tests in ../../../../tests/eval-etc.R`	209	`%% --> tests in ../../../../tests/eval-etc.R`
210	`}`	210	`}`
211	`\keyword{file}`	211	`\keyword{file}`
212	`\keyword{programming}`	212	`\keyword{programming}`
213	`\keyword{connection}`	213	`\keyword{connection}`

The R Project SVN R

(root)/trunk/src/library/base/man/source.Rd @ 77458 – Rev 80048 → 80079