diff --git a/R/deps.R b/R/deps.R
index 4ed4f064..c5a47b63 100644
--- a/R/deps.R
+++ b/R/deps.R
@@ -118,12 +118,17 @@ local_package_deps <- function(pkgdir = ".", dependencies = NA) {
 #' `dev_package_deps` lists the status of the dependencies
 #' of a local package.
 #'
+#' @param git Whether to use the `git2r` package, or an external
+#'   git client via system. Default is `git2r` if it is installed,
+#'   otherwise an external git installation.
+#'
 #' @export
 #' @rdname package_deps
 
 dev_package_deps <- function(pkgdir = ".", dependencies = NA,
                              repos = getOption("repos"),
                              type = getOption("pkgType"),
+                             git = c("auto", "git2r", "external"),
                              remote_precedence = TRUE) {
 
   pkg <- load_pkg_description(pkgdir)
@@ -142,9 +147,14 @@ dev_package_deps <- function(pkgdir = ".", dependencies = NA,
 
   cran_deps <- package_deps(deps, repos = repos, type = type)
 
-  res <- combine_remote_deps(cran_deps, extra_deps(pkg, "remotes"), remote_precedence)
+  git <- match.arg(git)
+  res <- combine_remote_deps(cran_deps,
+                             extra_deps(pkg, "remotes", git = git),
+                             remote_precedence)
 
-  res <- do.call(rbind, c(list(res), lapply(get_extra_deps(pkg, dependencies), extra_deps, pkg = pkg), stringsAsFactors = FALSE))
+  res <- do.call(rbind, c(list(res), lapply(get_extra_deps(pkg, dependencies),
+                                            extra_deps, pkg = pkg, git = git),
+                          stringsAsFactors = FALSE))
 
   res[is.na(res$package) | !duplicated(res$package, fromLast = TRUE), ]
 }
@@ -166,7 +176,7 @@ combine_remote_deps <- function(cran_deps, remote_deps, remote_precedence) {
   } else {
     remote_deps <- remote_deps[!(remote_deps$package %in% cran_deps$package), ]
   }
-  
+
 
   rbind(remote_deps, cran_deps)
 }
@@ -591,12 +601,12 @@ package_deps_new <- function(package = character(), installed = character(),
   res
 }
 
-extra_deps <- function(pkg, field) {
+extra_deps <- function(pkg, field, ...) {
   if (!has_extra_deps(pkg, field)) {
     return(package_deps_new())
   }
   dev_packages <- split_extra_deps(pkg[[field]])
-  extra <- lapply(dev_packages, parse_one_extra)
+  extra <- lapply(dev_packages, parse_one_extra, ...)
 
   package <- vapply(extra, function(x) remote_package_name(x), character(1), USE.NAMES = FALSE)
   installed <- vapply(package, function(x) local_sha(x), character(1), USE.NAMES = FALSE)
diff --git a/R/install-git.R b/R/install-git.R
index 10170b0b..16907b88 100644
--- a/R/install-git.R
+++ b/R/install-git.R
@@ -47,23 +47,24 @@ install_git <- function(url, subdir = NULL, ref = NULL, branch = NULL,
   }
 
   remotes <- lapply(url, git_remote,
-    subdir = subdir, ref = ref,
-    credentials = credentials, git = match.arg(git)
+                    subdir = subdir, ref = ref,
+                    credentials = credentials, git = match.arg(git)
   )
 
   install_remotes(remotes,
-    credentials = credentials,
-    dependencies = dependencies,
-    upgrade = upgrade,
-    force = force,
-    quiet = quiet,
-    build = build,
-    build_opts = build_opts,
-    build_manual = build_manual,
-    build_vignettes = build_vignettes,
-    repos = repos,
-    type = type,
-    ...
+                  credentials = credentials,
+                  dependencies = dependencies,
+                  upgrade = upgrade,
+                  force = force,
+                  quiet = quiet,
+                  build = build,
+                  build_opts = build_opts,
+                  build_manual = build_manual,
+                  build_vignettes = build_vignettes,
+                  repos = repos,
+                  type = type,
+                  git = match.arg(git),
+                  ...
   )
 }
 
@@ -79,8 +80,8 @@ git_remote <- function(url, subdir = NULL, ref = NULL, credentials = git_credent
     stop("`credentials` can only be used with `git = \"git2r\"`", call. = FALSE)
   }
 
-   url_parts = re_match( url,
-         "(?<protocol>[^/]*://)?(?<authhost>[^/]+)(?<path>[^@]*)(@(?<ref>.*))?")
+  url_parts = re_match( url,
+                        "(?<protocol>[^/]*://)?(?<authhost>[^/]+)(?<path>[^@]*)(@(?<ref>.*))?")
 
   ref <- ref %||% (if (url_parts$ref == "") NULL else url_parts$ref)
 
@@ -92,19 +93,19 @@ git_remote <- function(url, subdir = NULL, ref = NULL, credentials = git_credent
 
 git_remote_git2r <- function(url, subdir = NULL, ref = NULL, credentials = git_credentials()) {
   remote("git2r",
-    url = url,
-    subdir = subdir,
-    ref = ref,
-    credentials = credentials
+         url = url,
+         subdir = subdir,
+         ref = ref,
+         credentials = credentials
   )
 }
 
 
 git_remote_xgit <- function(url, subdir = NULL, ref = NULL, credentials = git_credentials()) {
   remote("xgit",
-    url = url,
-    subdir = subdir,
-    ref = ref
+         url = url,
+         subdir = subdir,
+         ref = ref
   )
 }
 
@@ -169,7 +170,7 @@ remote_package_name.git2r_remote <- function(remote, ...) {
         download_args$basic_auth <- list(
           user = Sys.getenv(remote$credentials$username),
           password = Sys.getenv(remote$credentials$username)
-       )
+        )
       } else if (inherits(remote$credentials, "cred_token")) {
         if (Sys.getenv(remote$credentials$token) == "") {
           stop(paste0("Environment variable `", remote$credentials$token, "` is unset."), .call = FALSE)
@@ -199,22 +200,38 @@ remote_package_name.git2r_remote <- function(remote, ...) {
     res <- try(
       silent = TRUE,
       system_check(git_path(),
-        args = c(
-          "archive", "-o", tmp, "--remote", remote$url,
-          if (is.null(remote$ref)) "HEAD" else remote$ref,
-          description_path
-        ),
-        quiet = TRUE
+                   args = c(
+                     "archive", "-o", tmp, "--remote", remote$url,
+                     if (is.null(remote$ref)) "HEAD" else remote$ref,
+                     description_path
+                   ),
+                   quiet = TRUE
       )
     )
 
     if (inherits(res, "try-error")) {
-      return(NA_character_)
+      res <- try(
+        silent = TRUE,
+        {
+          bundle <- remote_download(remote, quiet = TRUE)
+          bundle_description_path <- file.path(bundle, description_path)
+          if (file.exists(bundle_description_path)) {
+            description_path_dir <- file.path(tempdir(), dirname(description_path))
+            dir.create(description_path_dir, recursive = TRUE,
+                       showWarnings = FALSE)
+            file.copy(bundle_description_path,
+                      file.path(tempdir(), description_path),
+                      overwrite = TRUE)
+          }
+        })
+      if (inherits(res, "try-error")) {
+        return(NA_character_)
+      }
+    } else {
+      # git archive returns a tar file, so extract it to tempdir and read the DCF
+      utils::untar(tmp, files = description_path, exdir = tempdir())
     }
 
-    # git archive returns a tar file, so extract it to tempdir and read the DCF
-    utils::untar(tmp, files = description_path, exdir = tempdir())
-
     read_dcf(file.path(tempdir(), description_path))$Package
   }
 }
diff --git a/R/install.R b/R/install.R
index 3f72009b..ee1f06a4 100644
--- a/R/install.R
+++ b/R/install.R
@@ -175,6 +175,9 @@ r_error_matches <- function(msg, str) {
 #' @param build_opts Options to pass to `R CMD build`, only used when `build` is `TRUE`.
 #' @param build_manual If `FALSE`, don't build PDF manual ('--no-manual').
 #' @param build_vignettes If `FALSE`, don't build package vignettes ('--no-build-vignettes').
+#' @param git Whether to use the `git2r` package, or an external
+#'   git client via system. Default is `git2r` if it is installed,
+#'   otherwise an external git installation.
 #' @export
 #' @examples
 #' \dontrun{install_deps(".")}
@@ -187,12 +190,14 @@ install_deps <- function(pkgdir = ".", dependencies = NA,
                          build = TRUE,
                          build_opts = c("--no-resave-data", "--no-manual", "--no-build-vignettes"),
                          build_manual = FALSE, build_vignettes = FALSE,
+                         git = c("auto", "git2r", "external"),
                          ...) {
   packages <- dev_package_deps(
     pkgdir,
     repos = repos,
     dependencies = dependencies,
-    type = type
+    type = type,
+    git = git
   )
 
   dep_deps <- if (isTRUE(dependencies)) NA else dependencies
@@ -208,6 +213,7 @@ install_deps <- function(pkgdir = ".", dependencies = NA,
     build_vignettes = build_vignettes,
     type = type,
     repos = repos,
+    git = git,
     ...
   )
 }
diff --git a/inst/install-github.R b/inst/install-github.R
index 296100d7..05cc6c8d 100644
--- a/inst/install-github.R
+++ b/inst/install-github.R
@@ -656,12 +656,17 @@ function(...) {
   #' `dev_package_deps` lists the status of the dependencies
   #' of a local package.
   #'
+  #' @param git Whether to use the `git2r` package, or an external
+  #'   git client via system. Default is `git2r` if it is installed,
+  #'   otherwise an external git installation.
+  #'
   #' @export
   #' @rdname package_deps
   
   dev_package_deps <- function(pkgdir = ".", dependencies = NA,
                                repos = getOption("repos"),
                                type = getOption("pkgType"),
+                               git = c("auto", "git2r", "external"),
                                remote_precedence = TRUE) {
   
     pkg <- load_pkg_description(pkgdir)
@@ -680,9 +685,14 @@ function(...) {
   
     cran_deps <- package_deps(deps, repos = repos, type = type)
   
-    res <- combine_remote_deps(cran_deps, extra_deps(pkg, "remotes"), remote_precedence)
+    git <- match.arg(git)
+    res <- combine_remote_deps(cran_deps,
+                               extra_deps(pkg, "remotes", git = git),
+                               remote_precedence)
   
-    res <- do.call(rbind, c(list(res), lapply(get_extra_deps(pkg, dependencies), extra_deps, pkg = pkg), stringsAsFactors = FALSE))
+    res <- do.call(rbind, c(list(res), lapply(get_extra_deps(pkg, dependencies),
+                                              extra_deps, pkg = pkg, git = git),
+                            stringsAsFactors = FALSE))
   
     res[is.na(res$package) | !duplicated(res$package, fromLast = TRUE), ]
   }
@@ -704,7 +714,7 @@ function(...) {
     } else {
       remote_deps <- remote_deps[!(remote_deps$package %in% cran_deps$package), ]
     }
-    
+  
   
     rbind(remote_deps, cran_deps)
   }
@@ -1129,12 +1139,12 @@ function(...) {
     res
   }
   
-  extra_deps <- function(pkg, field) {
+  extra_deps <- function(pkg, field, ...) {
     if (!has_extra_deps(pkg, field)) {
       return(package_deps_new())
     }
     dev_packages <- split_extra_deps(pkg[[field]])
-    extra <- lapply(dev_packages, parse_one_extra)
+    extra <- lapply(dev_packages, parse_one_extra, ...)
   
     package <- vapply(extra, function(x) remote_package_name(x), character(1), USE.NAMES = FALSE)
     installed <- vapply(package, function(x) local_sha(x), character(1), USE.NAMES = FALSE)
@@ -3475,23 +3485,24 @@ function(...) {
     }
   
     remotes <- lapply(url, git_remote,
-      subdir = subdir, ref = ref,
-      credentials = credentials, git = match.arg(git)
+                      subdir = subdir, ref = ref,
+                      credentials = credentials, git = match.arg(git)
     )
   
     install_remotes(remotes,
-      credentials = credentials,
-      dependencies = dependencies,
-      upgrade = upgrade,
-      force = force,
-      quiet = quiet,
-      build = build,
-      build_opts = build_opts,
-      build_manual = build_manual,
-      build_vignettes = build_vignettes,
-      repos = repos,
-      type = type,
-      ...
+                    credentials = credentials,
+                    dependencies = dependencies,
+                    upgrade = upgrade,
+                    force = force,
+                    quiet = quiet,
+                    build = build,
+                    build_opts = build_opts,
+                    build_manual = build_manual,
+                    build_vignettes = build_vignettes,
+                    repos = repos,
+                    type = type,
+                    git = match.arg(git),
+                    ...
     )
   }
   
@@ -3507,8 +3518,8 @@ function(...) {
       stop("`credentials` can only be used with `git = \"git2r\"`", call. = FALSE)
     }
   
-     url_parts = re_match( url,
-           "(?<protocol>[^/]*://)?(?<authhost>[^/]+)(?<path>[^@]*)(@(?<ref>.*))?")
+    url_parts = re_match( url,
+                          "(?<protocol>[^/]*://)?(?<authhost>[^/]+)(?<path>[^@]*)(@(?<ref>.*))?")
   
     ref <- ref %||% (if (url_parts$ref == "") NULL else url_parts$ref)
   
@@ -3520,19 +3531,19 @@ function(...) {
   
   git_remote_git2r <- function(url, subdir = NULL, ref = NULL, credentials = git_credentials()) {
     remote("git2r",
-      url = url,
-      subdir = subdir,
-      ref = ref,
-      credentials = credentials
+           url = url,
+           subdir = subdir,
+           ref = ref,
+           credentials = credentials
     )
   }
   
   
   git_remote_xgit <- function(url, subdir = NULL, ref = NULL, credentials = git_credentials()) {
     remote("xgit",
-      url = url,
-      subdir = subdir,
-      ref = ref
+           url = url,
+           subdir = subdir,
+           ref = ref
     )
   }
   
@@ -3597,7 +3608,7 @@ function(...) {
           download_args$basic_auth <- list(
             user = Sys.getenv(remote$credentials$username),
             password = Sys.getenv(remote$credentials$username)
-         )
+          )
         } else if (inherits(remote$credentials, "cred_token")) {
           if (Sys.getenv(remote$credentials$token) == "") {
             stop(paste0("Environment variable `", remote$credentials$token, "` is unset."), .call = FALSE)
@@ -3627,22 +3638,38 @@ function(...) {
       res <- try(
         silent = TRUE,
         system_check(git_path(),
-          args = c(
-            "archive", "-o", tmp, "--remote", remote$url,
-            if (is.null(remote$ref)) "HEAD" else remote$ref,
-            description_path
-          ),
-          quiet = TRUE
+                     args = c(
+                       "archive", "-o", tmp, "--remote", remote$url,
+                       if (is.null(remote$ref)) "HEAD" else remote$ref,
+                       description_path
+                     ),
+                     quiet = TRUE
         )
       )
   
       if (inherits(res, "try-error")) {
-        return(NA_character_)
+        res <- try(
+          silent = TRUE,
+          {
+            bundle <- remote_download(remote, quiet = TRUE)
+            bundle_description_path <- file.path(bundle, description_path)
+            if (file.exists(bundle_description_path)) {
+              description_path_dir <- file.path(tempdir(), dirname(description_path))
+              dir.create(description_path_dir, recursive = TRUE,
+                         showWarnings = FALSE)
+              file.copy(bundle_description_path,
+                        file.path(tempdir(), description_path),
+                        overwrite = TRUE)
+            }
+          })
+        if (inherits(res, "try-error")) {
+          return(NA_character_)
+        }
+      } else {
+        # git archive returns a tar file, so extract it to tempdir and read the DCF
+        utils::untar(tmp, files = description_path, exdir = tempdir())
       }
   
-      # git archive returns a tar file, so extract it to tempdir and read the DCF
-      utils::untar(tmp, files = description_path, exdir = tempdir())
-  
       read_dcf(file.path(tempdir(), description_path))$Package
     }
   }
@@ -5336,6 +5363,9 @@ function(...) {
   #' @param build_opts Options to pass to `R CMD build`, only used when `build` is `TRUE`.
   #' @param build_manual If `FALSE`, don't build PDF manual ('--no-manual').
   #' @param build_vignettes If `FALSE`, don't build package vignettes ('--no-build-vignettes').
+  #' @param git Whether to use the `git2r` package, or an external
+  #'   git client via system. Default is `git2r` if it is installed,
+  #'   otherwise an external git installation.
   #' @export
   #' @examples
   #' \dontrun{install_deps(".")}
@@ -5348,12 +5378,14 @@ function(...) {
                            build = TRUE,
                            build_opts = c("--no-resave-data", "--no-manual", "--no-build-vignettes"),
                            build_manual = FALSE, build_vignettes = FALSE,
+                           git = c("auto", "git2r", "external"),
                            ...) {
     packages <- dev_package_deps(
       pkgdir,
       repos = repos,
       dependencies = dependencies,
-      type = type
+      type = type,
+      git = git
     )
   
     dep_deps <- if (isTRUE(dependencies)) NA else dependencies
@@ -5369,6 +5401,7 @@ function(...) {
       build_vignettes = build_vignettes,
       type = type,
       repos = repos,
+      git = git,
       ...
     )
   }
@@ -5901,7 +5934,7 @@ function(...) {
   }
   # Contents of R/system_requirements.R
   DEFAULT_RSPM_REPO_ID <-  "1" # cran
-  DEFAULT_RSPM <-  "https://packagemanager.rstudio.com"
+  DEFAULT_RSPM <-  "https://packagemanager.posit.co"
   
   #' Query the system requirements for a package (and its dependencies)
   #'
@@ -5950,6 +5983,7 @@ function(...) {
         curl,
         args = c(
           "--silent",
+          "-L",
           shQuote(sprintf("%s/sysreqs?all=false&pkgname=%s&distribution=%s&release=%s",
             rspm_repo_url,
             paste(package, collapse = "&pkgname="),
@@ -5974,6 +6008,7 @@ function(...) {
         curl,
         args = c(
           "--silent",
+          "-L",
           "--data-binary",
           shQuote(paste0("@", desc_file)),
           shQuote(sprintf("%s/sysreqs?distribution=%s&release=%s&suggests=true",
diff --git a/install-github.R b/install-github.R
index 296100d7..05cc6c8d 100644
--- a/install-github.R
+++ b/install-github.R
@@ -656,12 +656,17 @@ function(...) {
   #' `dev_package_deps` lists the status of the dependencies
   #' of a local package.
   #'
+  #' @param git Whether to use the `git2r` package, or an external
+  #'   git client via system. Default is `git2r` if it is installed,
+  #'   otherwise an external git installation.
+  #'
   #' @export
   #' @rdname package_deps
   
   dev_package_deps <- function(pkgdir = ".", dependencies = NA,
                                repos = getOption("repos"),
                                type = getOption("pkgType"),
+                               git = c("auto", "git2r", "external"),
                                remote_precedence = TRUE) {
   
     pkg <- load_pkg_description(pkgdir)
@@ -680,9 +685,14 @@ function(...) {
   
     cran_deps <- package_deps(deps, repos = repos, type = type)
   
-    res <- combine_remote_deps(cran_deps, extra_deps(pkg, "remotes"), remote_precedence)
+    git <- match.arg(git)
+    res <- combine_remote_deps(cran_deps,
+                               extra_deps(pkg, "remotes", git = git),
+                               remote_precedence)
   
-    res <- do.call(rbind, c(list(res), lapply(get_extra_deps(pkg, dependencies), extra_deps, pkg = pkg), stringsAsFactors = FALSE))
+    res <- do.call(rbind, c(list(res), lapply(get_extra_deps(pkg, dependencies),
+                                              extra_deps, pkg = pkg, git = git),
+                            stringsAsFactors = FALSE))
   
     res[is.na(res$package) | !duplicated(res$package, fromLast = TRUE), ]
   }
@@ -704,7 +714,7 @@ function(...) {
     } else {
       remote_deps <- remote_deps[!(remote_deps$package %in% cran_deps$package), ]
     }
-    
+  
   
     rbind(remote_deps, cran_deps)
   }
@@ -1129,12 +1139,12 @@ function(...) {
     res
   }
   
-  extra_deps <- function(pkg, field) {
+  extra_deps <- function(pkg, field, ...) {
     if (!has_extra_deps(pkg, field)) {
       return(package_deps_new())
     }
     dev_packages <- split_extra_deps(pkg[[field]])
-    extra <- lapply(dev_packages, parse_one_extra)
+    extra <- lapply(dev_packages, parse_one_extra, ...)
   
     package <- vapply(extra, function(x) remote_package_name(x), character(1), USE.NAMES = FALSE)
     installed <- vapply(package, function(x) local_sha(x), character(1), USE.NAMES = FALSE)
@@ -3475,23 +3485,24 @@ function(...) {
     }
   
     remotes <- lapply(url, git_remote,
-      subdir = subdir, ref = ref,
-      credentials = credentials, git = match.arg(git)
+                      subdir = subdir, ref = ref,
+                      credentials = credentials, git = match.arg(git)
     )
   
     install_remotes(remotes,
-      credentials = credentials,
-      dependencies = dependencies,
-      upgrade = upgrade,
-      force = force,
-      quiet = quiet,
-      build = build,
-      build_opts = build_opts,
-      build_manual = build_manual,
-      build_vignettes = build_vignettes,
-      repos = repos,
-      type = type,
-      ...
+                    credentials = credentials,
+                    dependencies = dependencies,
+                    upgrade = upgrade,
+                    force = force,
+                    quiet = quiet,
+                    build = build,
+                    build_opts = build_opts,
+                    build_manual = build_manual,
+                    build_vignettes = build_vignettes,
+                    repos = repos,
+                    type = type,
+                    git = match.arg(git),
+                    ...
     )
   }
   
@@ -3507,8 +3518,8 @@ function(...) {
       stop("`credentials` can only be used with `git = \"git2r\"`", call. = FALSE)
     }
   
-     url_parts = re_match( url,
-           "(?<protocol>[^/]*://)?(?<authhost>[^/]+)(?<path>[^@]*)(@(?<ref>.*))?")
+    url_parts = re_match( url,
+                          "(?<protocol>[^/]*://)?(?<authhost>[^/]+)(?<path>[^@]*)(@(?<ref>.*))?")
   
     ref <- ref %||% (if (url_parts$ref == "") NULL else url_parts$ref)
   
@@ -3520,19 +3531,19 @@ function(...) {
   
   git_remote_git2r <- function(url, subdir = NULL, ref = NULL, credentials = git_credentials()) {
     remote("git2r",
-      url = url,
-      subdir = subdir,
-      ref = ref,
-      credentials = credentials
+           url = url,
+           subdir = subdir,
+           ref = ref,
+           credentials = credentials
     )
   }
   
   
   git_remote_xgit <- function(url, subdir = NULL, ref = NULL, credentials = git_credentials()) {
     remote("xgit",
-      url = url,
-      subdir = subdir,
-      ref = ref
+           url = url,
+           subdir = subdir,
+           ref = ref
     )
   }
   
@@ -3597,7 +3608,7 @@ function(...) {
           download_args$basic_auth <- list(
             user = Sys.getenv(remote$credentials$username),
             password = Sys.getenv(remote$credentials$username)
-         )
+          )
         } else if (inherits(remote$credentials, "cred_token")) {
           if (Sys.getenv(remote$credentials$token) == "") {
             stop(paste0("Environment variable `", remote$credentials$token, "` is unset."), .call = FALSE)
@@ -3627,22 +3638,38 @@ function(...) {
       res <- try(
         silent = TRUE,
         system_check(git_path(),
-          args = c(
-            "archive", "-o", tmp, "--remote", remote$url,
-            if (is.null(remote$ref)) "HEAD" else remote$ref,
-            description_path
-          ),
-          quiet = TRUE
+                     args = c(
+                       "archive", "-o", tmp, "--remote", remote$url,
+                       if (is.null(remote$ref)) "HEAD" else remote$ref,
+                       description_path
+                     ),
+                     quiet = TRUE
         )
       )
   
       if (inherits(res, "try-error")) {
-        return(NA_character_)
+        res <- try(
+          silent = TRUE,
+          {
+            bundle <- remote_download(remote, quiet = TRUE)
+            bundle_description_path <- file.path(bundle, description_path)
+            if (file.exists(bundle_description_path)) {
+              description_path_dir <- file.path(tempdir(), dirname(description_path))
+              dir.create(description_path_dir, recursive = TRUE,
+                         showWarnings = FALSE)
+              file.copy(bundle_description_path,
+                        file.path(tempdir(), description_path),
+                        overwrite = TRUE)
+            }
+          })
+        if (inherits(res, "try-error")) {
+          return(NA_character_)
+        }
+      } else {
+        # git archive returns a tar file, so extract it to tempdir and read the DCF
+        utils::untar(tmp, files = description_path, exdir = tempdir())
       }
   
-      # git archive returns a tar file, so extract it to tempdir and read the DCF
-      utils::untar(tmp, files = description_path, exdir = tempdir())
-  
       read_dcf(file.path(tempdir(), description_path))$Package
     }
   }
@@ -5336,6 +5363,9 @@ function(...) {
   #' @param build_opts Options to pass to `R CMD build`, only used when `build` is `TRUE`.
   #' @param build_manual If `FALSE`, don't build PDF manual ('--no-manual').
   #' @param build_vignettes If `FALSE`, don't build package vignettes ('--no-build-vignettes').
+  #' @param git Whether to use the `git2r` package, or an external
+  #'   git client via system. Default is `git2r` if it is installed,
+  #'   otherwise an external git installation.
   #' @export
   #' @examples
   #' \dontrun{install_deps(".")}
@@ -5348,12 +5378,14 @@ function(...) {
                            build = TRUE,
                            build_opts = c("--no-resave-data", "--no-manual", "--no-build-vignettes"),
                            build_manual = FALSE, build_vignettes = FALSE,
+                           git = c("auto", "git2r", "external"),
                            ...) {
     packages <- dev_package_deps(
       pkgdir,
       repos = repos,
       dependencies = dependencies,
-      type = type
+      type = type,
+      git = git
     )
   
     dep_deps <- if (isTRUE(dependencies)) NA else dependencies
@@ -5369,6 +5401,7 @@ function(...) {
       build_vignettes = build_vignettes,
       type = type,
       repos = repos,
+      git = git,
       ...
     )
   }
@@ -5901,7 +5934,7 @@ function(...) {
   }
   # Contents of R/system_requirements.R
   DEFAULT_RSPM_REPO_ID <-  "1" # cran
-  DEFAULT_RSPM <-  "https://packagemanager.rstudio.com"
+  DEFAULT_RSPM <-  "https://packagemanager.posit.co"
   
   #' Query the system requirements for a package (and its dependencies)
   #'
@@ -5950,6 +5983,7 @@ function(...) {
         curl,
         args = c(
           "--silent",
+          "-L",
           shQuote(sprintf("%s/sysreqs?all=false&pkgname=%s&distribution=%s&release=%s",
             rspm_repo_url,
             paste(package, collapse = "&pkgname="),
@@ -5974,6 +6008,7 @@ function(...) {
         curl,
         args = c(
           "--silent",
+          "-L",
           "--data-binary",
           shQuote(paste0("@", desc_file)),
           shQuote(sprintf("%s/sysreqs?distribution=%s&release=%s&suggests=true",
diff --git a/man/install_deps.Rd b/man/install_deps.Rd
index fc15df86..e87cec36 100644
--- a/man/install_deps.Rd
+++ b/man/install_deps.Rd
@@ -15,6 +15,7 @@ install_deps(
   build_opts = c("--no-resave-data", "--no-manual", "--no-build-vignettes"),
   build_manual = FALSE,
   build_vignettes = FALSE,
+  git = c("auto", "git2r", "external"),
   ...
 )
 }
@@ -60,6 +61,10 @@ to "always". \code{TRUE} and \code{FALSE} are also accepted and correspond to
 
 \item{build_vignettes}{If \code{FALSE}, don't build package vignettes ('--no-build-vignettes').}
 
+\item{git}{Whether to use the \code{git2r} package, or an external
+git client via system. Default is \code{git2r} if it is installed,
+otherwise an external git installation.}
+
 \item{...}{additional arguments passed to \code{\link[utils:install.packages]{utils::install.packages()}}.}
 }
 \description{
diff --git a/man/package_deps.Rd b/man/package_deps.Rd
index 5abfc65d..2482f2c7 100644
--- a/man/package_deps.Rd
+++ b/man/package_deps.Rd
@@ -21,7 +21,11 @@ dev_package_deps(
   dependencies = NA,
   repos = getOption("repos"),
   type = getOption("pkgType"),
+<<<<<<< HEAD
+  git = c("auto", "git2r", "external")
+=======
   remote_precedence = TRUE
+>>>>>>> upstream/main
 )
 
 \method{update}{package_deps}(
@@ -66,8 +70,14 @@ common ones include:
 
 \item{pkgdir}{Path to a package directory, or to a package tarball.}
 
+<<<<<<< HEAD
+\item{git}{Whether to use the \code{git2r} package, or an external
+git client via system. Default is \code{git2r} if it is installed,
+otherwise an external git installation.}
+=======
 \item{remote_precedence}{A logical flag specifying whether remote sources should take precedence over
 CRAN when both were found.}
+>>>>>>> upstream/main
 
 \item{object}{A \code{package_deps} object.}
 
diff --git a/tests/testthat/test-deps.R b/tests/testthat/test-deps.R
index 62c1a6ad..0a76d283 100644
--- a/tests/testthat/test-deps.R
+++ b/tests/testthat/test-deps.R
@@ -359,6 +359,19 @@ test_that("remotes are parsed with explicit host", {
 
 })
 
+test_that("git remotes for git2r and xgit", {
+
+  expect_equal(
+    parse_one_extra("git::git@github.com:hadley/testthat", git = "external"),
+    git_remote("git@github.com:hadley/testthat", git = "external"))
+
+
+  expect_equal(
+    parse_one_extra("git::git@github.com:hadley/testthat", git = "git2r"),
+    git_remote("git@github.com:hadley/testthat", git = "git2r"))
+
+})
+
 test_that("remotes are parsed with explicit package names", {
   expect_equal(
     parse_one_extra("testthat=github::hadley/testthat"),