URL: http://cran.rstudio.com (moved to https://cran.rstudio.com/)

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.3
-Date: 2016-03-18
+Version: 0.17.4
+Date: 2016-03-19
 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.4 (2016-03-19)
+---------------------------
+BUG FIXES:
+   * URL: http://cran.rstudio.com (moved to https://cran.rstudio.com/)
+
+
+
 installr 0.17.3 (2016-03-18)
 ---------------------------
 

R/RStudio_CRAN_data.R

@@ -45,7 +45,7 @@
 #' 
 #' This function downlaod these files based on the code from the downlaod page (\url{http://cran-logs.rstudio.com/}) into a temporary folder.
 #' @details
-#' RStudio maintains its own CRAN mirror, \url{http://cran.rstudio.com} and offers its log files.
+#' RStudio maintains its own CRAN mirror, \url{https://cran.rstudio.com} and offers its log files.
 #' @param START the defaults is 5 days before today. A character string of the START date for files to be downloaded. The date format is "YYYY-MM-DD".
 #' @param END the defaults is today. A character string of the END date for files to be downloaded. 
 #' The date format is "YYYY-MM-DD".
@@ -132,7 +132,7 @@ download_RStudio_CRAN_data <- function(START = as.Date(Sys.time())-5,
 #' This function relies on data.table to run faster.
 #' WARNING: this function can be quite slow...
 #' @details
-#' RStudio maintains its own CRAN mirror, \url{http://cran.rstudio.com} and offers its log files.
+#' RStudio maintains its own CRAN mirror, \url{https://cran.rstudio.com} and offers its log files.
 #' @param log_folder the folder which contains the RStudio CRAN log files that were downloaded to. Default is the temporary folder picked by \link{tempdir}.
 #' @param use_data_table default is TRUE. A switch for wether or not to use the data.table package
 #' in order to merge the log files using rbindlist. This function is MUCH faster then the alternative.
@@ -206,7 +206,7 @@ read_RStudio_CRAN_data <- function(log_folder = tempdir(), use_data_table = TRUE
 #' classes for the columns date, package, country. It also adds the columns weekday and week. Lastly, it also sets a key.
 #' 
 #' @details
-#' RStudio maintains its own CRAN mirror, \url{http://cran.rstudio.com} and offers its log files.
+#' RStudio maintains its own CRAN mirror, \url{https://cran.rstudio.com} and offers its log files.
 #' @param dataset the RStudio CRAN mirror data object
 #' @param ... not in use.
 #' @author Felix Schonbrodt, Tal Galili
@@ -267,7 +267,7 @@ format_RStudio_CRAN_data <- function(dataset, ...) {
 #' This function is a first template for creating a barplot of the number of downloads a package had in a time period.
 #' This function is based on some other functions, have a look at the example for more details.
 #' @details
-#' RStudio maintains its own CRAN mirror, \url{http://cran.rstudio.com} and offers its log files.
+#' RStudio maintains its own CRAN mirror, \url{https://cran.rstudio.com} and offers its log files.
 #' @param pkg_name a string of the package we are interested in checking.
 #' @param dataset a dataset output from running \link{read_RStudio_CRAN_data}.
 #' @param remove_dups default is TRUE. Should the duplicate user ids (based on their ips) be removed.  If TRUE, then the plot is the number of unique users who have downloaded our package everyday.
@@ -322,7 +322,7 @@ barplot_package_users_per_day <- function(pkg_name, dataset, remove_dups = TRUE,
 #' This function gets a vector of package names, and returns a line plot of 
 #' number of downloads for these packages per week.
 #' @details
-#' RStudio maintains its own CRAN mirror, \url{http://cran.rstudio.com} and offers its log files.
+#' RStudio maintains its own CRAN mirror, \url{https://cran.rstudio.com} and offers its log files.
 #' @param pkg_names a character vector of packages we are interested in checking.
 #' @param dataset a dataset output from running \link{read_RStudio_CRAN_data}, after going through \link{format_RStudio_CRAN_data}.
 #' @param by_time by what time frame should packages be plotted? defaults to "date", but can also be "week"
@@ -401,7 +401,7 @@ lineplot_package_downloads <- function(pkg_names, dataset, by_time = c("date", "
 #' @description 
 #' Gives the top "x" most downloaded packages.
 #' @details
-#' RStudio maintains its own CRAN mirror, \url{http://cran.rstudio.com} and offers its log files.
+#' RStudio maintains its own CRAN mirror, \url{https://cran.rstudio.com} and offers its log files.
 #' @param dataset a dataset output from running \link{read_RStudio_CRAN_data}, after going through \link{format_RStudio_CRAN_data}.
 #' @param n the number of top packages to show.
 #' @param ... not in use.
@@ -435,7 +435,7 @@ most_downloaded_packages <- function(dataset, n = 6L,...) {
 #' @description
 #' Plots a worldmap colored by the number of users installation for a given package
 #' @details
-#' RStudio maintains its own CRAN mirror, \url{http://cran.rstudio.com} and offers its log files.
+#' RStudio maintains its own CRAN mirror, \url{https://cran.rstudio.com} and offers its log files.
 #' @param pkg_name a character string of the package we are interested in.
 #' @param dataset a dataset output from running \link{read_RStudio_CRAN_data}.
 #' @param remove_dups logical (default is TRUE). Should the duplicate user ids (based on their ips) be removed.

R/install.R

@@ -1111,7 +1111,7 @@ install.ffmpeg <- function(...) install.FFmpeg(...)
 #' @description Returns the search path for executable files based on %PATH%
 #' @return A character vector with the search path for executable files
 #' @references
-#' \url{http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/ntcmds_shelloverview.mspx?mfr=true}
+#'  http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/ntcmds_shelloverview.mspx?mfr=true
 #' @examples
 #' \dontrun{
 #' system.PATH() # 

R/updateR.R

@@ -171,7 +171,7 @@ ask.user.yn.question <- function(question, GUI = TRUE, add_lines_before = TRUE)
 #' }
 check.for.updates.R <- function(notify_user = TRUE, 
                                 GUI = TRUE, 
-                                page_with_download_url = "http://cran.rstudio.com/bin/windows/base/",
+                                page_with_download_url = "https://cran.rstudio.com/bin/windows/base/",
                                 pat = "R-[0-9.]+.+-win\\.exe") {
    # stringr::str_extract("R-3.2.4-win.exe", "R-[0-9.]+.+-win\\.exe")
    # stringr::str_extract("R-3.2.4revised-win.exe", "R-[0-9.]+.+-win\\.exe")
@@ -225,7 +225,7 @@ check.for.updates.R <- function(notify_user = TRUE,
 
 #' @title See the NEWS file for the latest R release
 #' @export
-#' @description Sends the user the the NEWS html file on "http://cran.rstudio.com/bin/windows/base/NEWS.R-3.0.0.html" (URL changes with each version)
+#' @description Sends the user the the NEWS html file on "https://cran.rstudio.com/bin/windows/base/NEWS.R-3.0.0.html" (URL changes with each version)
 #' @param URL the URL of the page from which R can be downloaded.
 #' @param ... for future use
 #' @return invisible(NULL)
@@ -234,7 +234,7 @@ check.for.updates.R <- function(notify_user = TRUE,
 #' browse.latest.R.NEWS() 
 #' }
 browse.latest.R.NEWS <- function(
-   URL = "http://cran.rstudio.com/bin/windows/base/",...) {
+   URL = "https://cran.rstudio.com/bin/windows/base/",...) {
    page_with_download_url <- URL
    page   <- readLines(page_with_download_url, warn = FALSE)
    pat <- "NEWS.R-[0-9.]+.html"# this is the structure of the link...
@@ -267,12 +267,12 @@ browse.latest.R.NEWS <- function(
 #' @param ... extra parameters to pass to \link{install.URL}
 #' @return TRUE/FALSE - was the installation of R successful or not.
 #' @seealso \link{uninstall.R}, \link{install.Rdevel}, \link{updateR}, \link{system}
-#' @references \url{http://cran.rstudio.com/bin/windows/base/}
+#' @references \url{https://cran.rstudio.com/bin/windows/base/}
 #' @examples
 #' \dontrun{
 #' install.R() 
 #' }
-install.R <- function(page_with_download_url = "http://cran.rstudio.com/bin/windows/base/", 
+install.R <- function(page_with_download_url = "https://cran.rstudio.com/bin/windows/base/", 
                       pat = "R-[0-9.]+-win.exe",
                       to_checkMD5sums = TRUE,
                       keep_install_file = FALSE,
@@ -340,12 +340,12 @@ install.R <- function(page_with_download_url = "http://cran.rstudio.com/bin/wind
 #' @param ... extra parameters to pass to \link{install.URL}
 #' @return TRUE/FALSE - was the installation of R successful or not.
 #' @seealso \link{install.R}, \link{updateR}
-#' @references \url{http://cran.rstudio.com/bin/windows/base/rdevel.html}
+#' @references \url{https://cran.rstudio.com/bin/windows/base/rdevel.html}
 #' @examples
 #' \dontrun{
 #' install.Rdevel() 
 #' }
-install.Rdevel <- function(exe_URL = "http://cran.rstudio.com/bin/windows/base/R-devel-win.exe", ...) {
+install.Rdevel <- function(exe_URL = "https://cran.rstudio.com/bin/windows/base/R-devel-win.exe", ...) {
    install.URL(exe_URL)   
 }
 
@@ -808,7 +808,7 @@ your packages to the new R installation.\n")
 
    if(update_packages & copy_packages) { # we should not update packages if we didn't copy them first...
       new_Rscript_path <- file.path(new_R_path, "bin/Rscript.exe") # make sure to run the newer R to update the packages.
-      update_packages_expression <- paste(new_Rscript_path, ' -e " setInternet2(TRUE); options(repos=structure(c(CRAN=\'http://cran.rstudio.com/\'))); update.packages(checkBuilt=TRUE, ask=FALSE) "')
+      update_packages_expression <- paste(new_Rscript_path, ' -e " setInternet2(TRUE); options(repos=structure(c(CRAN=\'https://cran.rstudio.com/\'))); update.packages(checkBuilt=TRUE, ask=FALSE) "')
       #    update_packages_expression <- paste(new_Rscript_path, ' -e "date()"')
       #    update_packages_expression <- paste(new_Rscript_path, ' -e "print(R.version)"')
       system(update_packages_expression, wait = TRUE, intern = TRUE, show.output.on.console = TRUE)