[Distr-commits] r1102 - pkg/utils

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

Author: ruckdeschel
Date: 2016-04-23 18:16:00 +0200 (Sat, 23 Apr 2016)
New Revision: 1102

Added:
   pkg/utils/updateTo2_6.R
Modified:
   pkg/utils/getRevNr.R
   pkg/utils/showsvnlog.R
Log:
further update of utils for distr

Modified: pkg/utils/getRevNr.R
===================================================================
--- pkg/utils/getRevNr.R	2016-04-23 15:39:48 UTC (rev 1101)
+++ pkg/utils/getRevNr.R	2016-04-23 16:16:00 UTC (rev 1102)
@@ -16,6 +16,7 @@
   toRev <- "HEAD"
   if(inRforge)
      pathRepo <- paste("svn://svn.r-forge.r-project.org/svnroot/",pathRepo,sep="")
+  print(pathRepo)
   inQuotes <- function(x) paste("\"",x,"\"", sep="")
   comd <- paste(inQuotes(PathToBash), ifelse(withlogin,"--login",""),
                   inQuotes(paste(PathToUtils, "readsvnlog.sh", sep="/")),

Modified: pkg/utils/showsvnlog.R
===================================================================
--- pkg/utils/showsvnlog.R	2016-04-23 15:39:48 UTC (rev 1101)
+++ pkg/utils/showsvnlog.R	2016-04-23 16:16:00 UTC (rev 1102)
@@ -40,6 +40,7 @@
     myline <- paste(rep("-",length.out=72),collapse="",sep="")
     if(inRforge)
        pathRepo <- paste("svn://svn.r-forge.r-project.org/svnroot/",pathRepo,sep="")
+    
     inQuotes <- function(x) paste("\"",x,"\"", sep="")
 
     comd <- paste(inQuotes(PathToBash), ifelse(withlogin,"--login",""),
@@ -69,5 +70,7 @@
 showsvnlog("robast",from=1,to=Inf,limit=1000,con="C:/rtest/svnlog-robast.txt")
 showsvnlog(from=580,to=Inf,limit=1000)
 showsvnlog("robast",from=220,to=Inf,limit=1000,con="C:/rtest/svnlog-robast-ex.txt")
+showsvnlog("robast",from=220,to=Inf,limit=1000)
+getRevNr("C:/rtest/RobASt/", pathRepo="robast", inRforge=TRUE, withlogin=TRUE, PathToBash="C:/cygwin64/bin/bash", "C:/rtest/distr/branches/distr-2.4/pkg/utils")[[1]]
 }
 

Added: pkg/utils/updateTo2_6.R
===================================================================
--- pkg/utils/updateTo2_6.R	                        (rev 0)
+++ pkg/utils/updateTo2_6.R	2016-04-23 16:16:00 UTC (rev 1102)
@@ -0,0 +1,90 @@
+Pkgs <- c("SweaveListingUtils", "distr", "distrEx", "distrDoc",
+                      "distrMod", "distrTeach", "distrSim", "distrTEst",
+                      "distrEllipse")
+Names <- c("Version","Date","SVNRevision")
+Values <- matrix(c("2.0.2", format(Sys.time(), format="%Y-%m-%d"),1),3,length(Pkgs))
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+Values["Version",] <- c("0.5", rep("2.3", 8))
+changeDescription(startDir = "C:/rtest/distr/",names=Names,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("0.9.2",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "startupmsg"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("0.7",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "SweaveListingUtils"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distr"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distrEx"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distrSim"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distrTEst"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distrTeach"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distrRmetrics"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distrEllipse"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)
+
+Values <- matrix(c("2.6",format(Sys.time(), format="%Y-%m-%d")),2,1)
+Pkgs  <- "distrDoc"
+Names <- c("Version","Date")
+colnames(Values) <- Pkgs
+rownames(Values) <- Names
+changeDescription(startDir = "C:/rtest/distr/",names=Names, verbose=TRUE,
+                  pkgs=Pkgs, values=Values)