All remotes should ignore additional arguments

They now get passed all arguments from the parent call, but some of them
are not applicable to the remote constructor

Author: jimhester

R/install-bitbucket.R

@@ -43,7 +43,7 @@ install_bitbucket <- function(repo, ref = "master", subdir = NULL,
 
 bitbucket_remote <- function(repo, ref = "master", subdir = NULL,
                               auth_user = NULL, password = NULL, sha = NULL,
-                              host = NULL) {
+                              host = NULL, ...) {
 
   meta <- parse_git_repo(repo)
 

R/install-cran.R

@@ -20,7 +20,7 @@ install_cran <- function(pkgs, repos = getOption("repos"), type = getOption("pkg
   install_remotes(remotes, quiet = quiet, ...)
 }
 
-cran_remote <- function(pkg, repos, type) {
+cran_remote <- function(pkg, repos, type, ...) {
 
   remote("cran",
     name = pkg,

R/install-git.R

@@ -28,7 +28,7 @@ install_git <- function(url, subdir = NULL, branch = NULL,
 }
 
 
-git_remote <- function(url, subdir = NULL, branch = NULL, git = c("auto", "git2r", "external")) {
+git_remote <- function(url, subdir = NULL, branch = NULL, git = c("auto", "git2r", "external"), ...) {
   git <- match.arg(git)
   if (git == "auto") {
     git <- if (pkg_installed("git2r")) "git2r" else "external"

R/install-github.R

@@ -52,7 +52,7 @@ install_github <- function(repo,
 
 github_remote <- function(repo, ref = "master", subdir = NULL,
                        auth_token = github_pat(), sha = NULL,
-                       host = "api.github.com") {
+                       host = "api.github.com", ...) {
 
   meta <- parse_git_repo(repo)
   meta <- github_resolve_ref(meta$ref %||% ref, meta, auth_token)

R/install-gitlab.R

@@ -28,7 +28,7 @@ install_gitlab <- function(repo,
 
 gitlab_remote <- function(repo,
                        auth_token = gitlab_pat(), sha = NULL,
-                       host = "gitlab.com") {
+                       host = "gitlab.com", ...) {
 
   meta <- parse_git_repo(repo)
   meta$ref <- meta$ref %||% "master"

R/install-local.R

@@ -21,7 +21,7 @@ install_local <- function(path, subdir = NULL, ...) {
   install_remotes(remotes, ...)
 }
 
-local_remote <- function(path, subdir = NULL, branch = NULL, args = character(0)) {
+local_remote <- function(path, subdir = NULL, branch = NULL, args = character(0), ...) {
   remote("local",
     path = normalizePath(path),
     subdir = subdir

R/install-svn.R

@@ -31,7 +31,7 @@ install_svn <- function(url, subdir = NULL, args = character(0),
 }
 
 svn_remote <- function(url, svn_subdir = NULL, revision = NULL,
-  args = character(0)) {
+  args = character(0), ...) {
   remote("svn",
     url = url,
     svn_subdir = svn_subdir,

R/install-url.R

@@ -20,7 +20,7 @@ install_url <- function(url, subdir = NULL, ...) {
   install_remotes(remotes, ...)
 }
 
-url_remote <- function(url, subdir = NULL) {
+url_remote <- function(url, subdir = NULL, ...) {
   remote("url",
     url = url,
     subdir = subdir