Lowercase cran

Author: jimhester

NAMESPACE

@@ -11,28 +11,28 @@ S3method(print,package_deps)
 S3method(print,packages_info)
 S3method(print,platform_info)
 S3method(print,session_info)
-S3method(remote_download,CRAN_remote)
 S3method(remote_download,bitbucket_remote)
+S3method(remote_download,cran_remote)
 S3method(remote_download,git_remote)
 S3method(remote_download,github_remote)
 S3method(remote_download,local_remote)
 S3method(remote_download,svn_remote)
 S3method(remote_download,url_remote)
-S3method(remote_metadata,CRAN_remote)
 S3method(remote_metadata,bitbucket_remote)
+S3method(remote_metadata,cran_remote)
 S3method(remote_metadata,git_remote)
 S3method(remote_metadata,github_remote)
 S3method(remote_metadata,local_remote)
 S3method(remote_metadata,package)
 S3method(remote_metadata,svn_remote)
 S3method(remote_metadata,url_remote)
-S3method(remote_package_name,CRAN_remote)
 S3method(remote_package_name,bitbucket_remote)
+S3method(remote_package_name,cran_remote)
 S3method(remote_package_name,git_remote)
 S3method(remote_package_name,github_remote)
 S3method(remote_package_name,svn_remote)
-S3method(remote_sha,CRAN_remote)
 S3method(remote_sha,bitbucket_remote)
+S3method(remote_sha,cran_remote)
 S3method(remote_sha,git_remote)
 S3method(remote_sha,github_remote)
 S3method(remote_sha,local_remote)
@@ -87,8 +87,8 @@ export(imports_env)
 export(in_dir)
 export(inst)
 export(install)
-export(install_CRAN)
 export(install_bitbucket)
+export(install_cran)
 export(install_deps)
 export(install_git)
 export(install_github)

R/install-CRAN.r renamed to R/install-cran.r

@@ -9,49 +9,49 @@
 #' @family package installation
 #' @examples
 #' \dontrun{
-#' install_CRAN("ggplot2")
-#' install_CRAN(c("httpuv", "shiny")
+#' install_cran("ggplot2")
+#' install_cran(c("httpuv", "shiny")
 #' }
-install_CRAN <- function(pkgs, repos = getOption("repos"), type = getOption("pkgType"), ..., quiet = FALSE) {
+install_cran <- function(pkgs, repos = getOption("repos"), type = getOption("pkgType"), ..., quiet = FALSE) {
 
-  remotes <- lapply(pkgs, CRAN_remote, repos = repos, type = type)
+  remotes <- lapply(pkgs, cran_remote, repos = repos, type = type)
 
   install_remotes(remotes, quiet = quiet, ...)
 }
 
-CRAN_remote <- function(pkg, repos, type) {
+cran_remote <- function(pkg, repos, type) {
 
-  remote("CRAN",
+  remote("cran",
     name = pkg,
     repos = repos,
     pkg_type = type)
 }
 
 
 #' @export
-remote_download.CRAN_remote <- function(x, quiet = FALSE) {
+remote_download.cran_remote <- function(x, quiet = FALSE) {
   dest_dir <- tempdir()
   download.packages(x$name, destdir = dest_dir, repos = x$repos, type = x$pkg_type)[1, 2]
 }
 
 #' @export
-remote_metadata.CRAN_remote <- function(x, bundle = NULL, source = NULL) {
+remote_metadata.cran_remote <- function(x, bundle = NULL, source = NULL) {
   version <- read_dcf(file.path(source, "DESCRIPTION"))$Version
   list(
-    RemoteType = "CRAN",
+    RemoteType = "cran",
     RemoteSha = version,
     RemoteRepos = deparse(x$repos),
     RemotePkgType = x$pkg_type
   )
 }
 
 #' @export
-remote_package_name.CRAN_remote <- function(remote, ...) {
+remote_package_name.cran_remote <- function(remote, ...) {
   remote$name
 }
 
 #' @export
-remote_sha.CRAN_remote <- function(remote, url = "https://github.com", ...) {
+remote_sha.cran_remote <- function(remote, url = "https://github.com", ...) {
   cran <- available_packages(remote$repos, remote$pkg_type)
 
   tryCatch(cran[remote$name, "Version"], error = function(e) NA)

R/install-remote.R

@@ -123,7 +123,7 @@ package2remote <- function(x, repos = getOption("repos"), type = getOption("pkgT
 
     # Packages installed with install.packages()
     if (!is.null(x$Repository) && x$Repository == "CRAN") {
-      remote("CRAN",
+      remote("cran",
         name = x$Package,
         repos = repos,
         pkg_type = type,
@@ -168,7 +168,7 @@ package2remote <- function(x, repos = getOption("repos"), type = getOption("pkgT
       repo = x$RemoteRepo),
 
     # packages installed with install_CRAN
-    CRAN = remote("CRAN",
+    cran = remote("cran",
       name = x$RemoteName,
       repos = eval(parse(text = x$RemoteRepos)),
       pkg_type = x$RemotePkgType,