Expose environment variables from R process (#507)

* Expose env vars from R process * Apply suggestions from code review by @jennybc Co-authored-by: Jennifer (Jenny) Bryan <[email protected]> * Update docs for function * Get specific env vars by name (or all of them) * Need `names` for single env var --------- Co-authored-by: Jennifer (Jenny) Bryan <[email protected]>
posit-dev · Sep 11, 2024 · 6dc1977 · 6dc1977
1 parent 526abac
commit 6dc1977
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/crates/ark/src/modules/positron/system.R b/crates/ark/src/modules/positron/system.R
@@ -21,3 +21,12 @@ has_x11 <- function() {
     out <- as.list(vapply(cats, Sys.getlocale, "string", USE.NAMES = TRUE))
     c(LANG = Sys.getenv("LANG"), out)
 }
+
+#' Reports a list of environment variables for the R process.
+#' @param x A character vector of environment variables. The default `NULL`
+#' will return *all* environment variables.
+#' @returns Values of the environment variables as a list.
+#' @export
+.ps.rpc.get_env_vars <- function(x = NULL) {
+    as.list(Sys.getenv(x, names = TRUE))
+}