copy.packages.between.libraries - can now deal with a file name such as "R-3.2.4revised-win.exe". (by fixing R_version_in_a_folder which was used inside get.installed.R.folders) - this should fix issue #53

Author: talgalili

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: installr
 Type: Package
 Title: Using R to Install Stuff (Such As: R, Rtools, RStudio, Git, and More!)
-Version: 0.17.5
-Date: 2016-03-20
+Version: 0.17.6
+Date: 2016-04-09
 Authors@R: c(person("Tal", "Galili", role = c("aut", "cre", "cph"), email =
     "tal.galili@gmail.com", comment = "http://www.r-statistics.com"),
     person("Barry", "Rowlingson", role = "ctb", email =

NEWS

@@ -1,3 +1,10 @@
+installr 0.17.6 (2016-04-09)
+---------------------------
+
+BUG FIXES:
+   * copy.packages.between.libraries - can now deal with a file name such as "R-3.2.4revised-win.exe". (by fixing R_version_in_a_folder which was used inside get.installed.R.folders)
+
+
 installr 0.17.5 (2016-03-20)
 ---------------------------
 

R/updateR.R

@@ -449,7 +449,7 @@ turn.number.version <- function(number_to_dots) {
 R_version_in_a_folder <- function(folder) { 
 #    folder = R.home()
    files <- list.files(folder)
-   files <- gsub("patched", "", files)
+   files <- gsub("patched|revised", "", files)
    ss <- grep("README.R-[0-9]+.[0-9]+.[0-9]+$", files)
    if(length(ss)==0) return(NA) # this means that the current folder is NOT an R installation folder with the file README.R-numbers
    README_x <- files[ss] # for example: "README.R-3.0.1"   
@@ -568,7 +568,7 @@ get.installed.R.folders <- function(sort_by_version = TRUE, add_version_to_name
 #' # As before, but this time it will MOVE (instead of COPY) the packages.
 #' #  e.g: erase them from their old location.
 #' }
-copy.packages.between.libraries <- function(from, to, ask =FALSE,keep_old = TRUE, do_NOT_override_packages_in_new_R = TRUE) {
+copy.packages.between.libraries <- function(from, to, ask = FALSE, keep_old = TRUE, do_NOT_override_packages_in_new_R = TRUE) {
 
    installed_R_folders <- get.installed.R.folders()   
    installed_R_folders_TABLE <-data.frame("R_version" = names(installed_R_folders) , Folder = installed_R_folders)