[Distr-commits] r1215 - branches/distr-2.8/pkg/utils pkg/utils

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

Author: ruckdeschel
Date: 2018-07-25 01:32:20 +0200 (Wed, 25 Jul 2018)
New Revision: 1215

Modified:
   branches/distr-2.8/pkg/utils/DESCRIPTIONutilsExamples.R
   pkg/utils/DESCRIPTIONutilsExamples.R
   pkg/utils/finde.R
   pkg/utils/updateTo2_4.R
Log:
updated package utils 

Modified: branches/distr-2.8/pkg/utils/DESCRIPTIONutilsExamples.R
===================================================================
--- branches/distr-2.8/pkg/utils/DESCRIPTIONutilsExamples.R	2018-07-23 18:54:09 UTC (rev 1214)
+++ branches/distr-2.8/pkg/utils/DESCRIPTIONutilsExamples.R	2018-07-24 23:32:20 UTC (rev 1215)
@@ -64,6 +64,14 @@
 rownames(Values) <- Names
 changeDescription(startDir = "C:/rtest/robast/branches/robast-1.0",names=Names,
                   pkgs=Pkgs, values=Values)
+
+Pkgs <- c("RandVar", "ROptEstOld", "RobAStBase", "RobAStRDA", "RobLox", "RobRex", "RobLoxBioC", "ROptEst", "RobExtremes", "ROptRegTS")
+Names <- c("Version")
+Values <- matrix(c("1.1.0"),1,length(Pkgs))
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/robast/",names=Names,pkgs=Pkgs, values=Values)
+
 }
 
 if(FALSE){### Version 2.5

Modified: pkg/utils/DESCRIPTIONutilsExamples.R
===================================================================
--- pkg/utils/DESCRIPTIONutilsExamples.R	2018-07-23 18:54:09 UTC (rev 1214)
+++ pkg/utils/DESCRIPTIONutilsExamples.R	2018-07-24 23:32:20 UTC (rev 1215)
@@ -64,6 +64,14 @@
 rownames(Values) <- Names
 changeDescription(startDir = "C:/rtest/robast/branches/robast-1.0",names=Names,
                   pkgs=Pkgs, values=Values)
+
+Pkgs <- c("RandVar", "ROptEstOld", "RobAStBase", "RobAStRDA", "RobLox", "RobRex", "RobLoxBioC", "ROptEst", "RobExtremes", "ROptRegTS")
+Names <- c("Version")
+Values <- matrix(c("1.1.0"),1,length(Pkgs))
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/robast/",names=Names,pkgs=Pkgs, values=Values)
+
 }
 
 if(FALSE){### Version 2.5

Modified: pkg/utils/finde.R
===================================================================
--- pkg/utils/finde.R	2018-07-23 18:54:09 UTC (rev 1214)
+++ pkg/utils/finde.R	2018-07-24 23:32:20 UTC (rev 1215)
@@ -33,7 +33,7 @@
 finde(x="http://distr\\.r-forge\\.r-project\\.org/distr\\.pdf", dir ="C:/rtest/distr/", rec=TRUE)
 finde(x="cniper.+\\(", dir ="C:/rtest/robast/branches/robast-0.9/pkg", rec=TRUE)
 
-ersetze <- function(x0 = "nchar", x1="nchar", dir="C:/rtest/distr/pkg/distr/R", ext = "R", rec = FALSE){
+ersetze <- function(x0 = "nchar", x1="nchar", dir="C:/rtest/distr/pkg/distr/R", ext = "R", rec = FALSE, withEmpty=FALSE){
   ow <- getwd()
   on.exit(setwd(ow))
   infind <- function(dir0){
@@ -51,7 +51,8 @@
        invisible()
     }
   ext0 <- if(ext=="") "" else paste("\\.", ext, sep="")
-  DIR <- grep(ext0, dir(, rec = rec), value=TRUE)
+  DIR <- dir(, rec = rec)
+  if(!withEmpty) DIR <- grep(ext0, DIR, value=TRUE)
   s <- lapply(DIR,findL)
   }
 infind(dir)

Modified: pkg/utils/updateTo2_4.R
===================================================================
--- pkg/utils/updateTo2_4.R	2018-07-23 18:54:09 UTC (rev 1214)
+++ pkg/utils/updateTo2_4.R	2018-07-24 23:32:20 UTC (rev 1215)
@@ -3,7 +3,7 @@
 Pkgs <- c("SweaveListingUtils", "distr", "distrEx", "distrDoc",
                       "distrMod", "distrTeach", "distrSim", "distrTEst",
                       "distrEllipse")
-Names <- c("Version","Date","SVNRevision")
+Names <- c("Version","Date","VCS/SVNRevision")
 Values <- matrix(c("2.0.2", format(Sys.time(), format="%Y-%m-%d"),1),3,length(Pkgs))
 colnames(Values) <- Pkgs
 rownames(Values) <- Names
@@ -15,7 +15,7 @@
 Pkgs <- c("SweaveListingUtils", "distr", "distrEx", "distrDoc",
                       "distrMod", "distrTeach", "distrSim", "distrTEst",
                       "distrEllipse")
-Names <- c("Version",  "Date", "SVNRevision")
+Names <- c("Version",  "Date", "VCS/SVNRevision")
 Values <- matrix(c("2.0.2", format(Sys.time(), format="%Y-%m-%d"),1),3,length(Pkgs))
 colnames(Values) <- Pkgs
 rownames(Values) <- Names
@@ -28,7 +28,7 @@
 Pkgs <- c("RandVar", "RobAStBase", "ROptEst", "RobLox"
           ,"ROptEstOld", "ROptRegTS", "RobRex", "RobLoxBioC"
           )
-Names <- c("Version",  "Date", "SVNRevision")
+Names <- c("Version",  "Date", "VCS/SVNRevision")
 Values <- matrix(c(0.8,format(Sys.time(), format="%Y-%m-%d"),1),3,length(Pkgs))
 colnames(Values) <- Pkgs
 rownames(Values) <- Names
@@ -40,7 +40,7 @@
 Pkgs <- c("RandVar", "RobAStBase", "ROptEst", "ROptEstOld", "RobLox",
           "ROptRegTS", "RobRex", "RobLoxBioC")
 
-Names <- c("Version","Date","SVNRevision")
+Names <- c("Version","Date","VCS/SVNRevision")
 Values <- matrix(c("0.8", format(Sys.time(), format="%Y-%m-%d"),1),3,length(Pkgs))
 colnames(Values) <- Pkgs
 rownames(Values) <- Names