From a92791a6a662ff04f67b2e0328dd7ac94b086334 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?G=C3=A1bor=20Cs=C3=A1rdi?= <csardi.gabor@gmail.com>
Date: Mon, 24 Feb 2025 08:27:41 +0100
Subject: [PATCH] Forward env vars that look like keyring:env secrets

to the subprocess.
---
 R/subprocess.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/subprocess.R b/R/subprocess.R
index 9978d8ce4..ec1e0f7cb 100644
--- a/R/subprocess.R
+++ b/R/subprocess.R
@@ -68,6 +68,9 @@ remote <- function(func, args = list()) {
   pkg_options <- opts[grepl("^pkg[.]", names(opts)) | names(opts) %in% extraopts]
   envs <- Sys.getenv()
   extraenvs <- c("R_BIOC_VERSION", "PATH")
+  if (any(grepl("@", subst_args[["__repos__"]]))) {
+    extraenvs <- c(extraenvs, envs[grep("^https?://", names(envs))])
+  }
   pkg_envs <- envs[grepl("^PKG_", names(envs)) | names(envs) %in% extraenvs]
   rs$run(function(new_opts, new_envs) {
     opts <- options()