[Distr-commits] r815 - branches/distr-2.4/pkg/utils

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2012-05-21 02:01:24 +0200 (Mon, 21 May 2012)
New Revision: 815

Modified:
   branches/distr-2.4/pkg/utils/ladealles.R
Log:
[utils] in helper utility ladealles: print out can be suppressed

Modified: branches/distr-2.4/pkg/utils/ladealles.R
===================================================================
--- branches/distr-2.4/pkg/utils/ladealles.R	2012-05-20 23:51:22 UTC (rev 814)
+++ branches/distr-2.4/pkg/utils/ladealles.R	2012-05-21 00:01:24 UTC (rev 815)
@@ -1,12 +1,15 @@
- ladeall <- function(DIR="distr", develDir = "C:/rtest/distr/pkg",pattern=""){
+ ladeall <- function(DIR="distr", develDir = "C:/rtest/distr/pkg",pattern="",
+          withPrint = TRUE){
  od <- getwd()
- print(file.path(develDir,DIR, "R"))
+ if(withPrint) print(file.path(develDir,DIR, "R"))
  setwd(file.path(develDir,DIR, "R"))
- lapply(grep(paste(pattern,".(r|R)$",sep="",collapse=""),dir(),value=T),function(...) {print(...);source(...)})
+ lapply(grep(paste(pattern,".(r|R)$",sep="",collapse=""),dir(),value=T),
+          function(...) {if(withPrint) print(...);source(...)})
  setwd(od)
 }
 
 #ladeall(DIR="distr", develDir = "C:/rtest/distr/branches/distr-2.1/pkg")
 #ladeall(DIR="distrEx", develDir = "C:/rtest/distr/pkg")
-ladeall(DIR="ROptEst", develDir = "C:/rtest/robast/branches/robast-0.7/pkg")
+ladeall(DIR="distrMod", develDir = "C:/rtest/distr/branches/distr-2.4/pkg",withPrint=FALSE)
+ladeall(DIR="RobExtremes", develDir = "C:/rtest/robast/branches/robast-0.9/pkg")