Make sure to source the file in a child environment

Author: thomasp85

R/Plumber.R

@@ -300,9 +300,11 @@ Plumber <- R6Class(
     },
     #' @description Parses a plumber file and updates the app according to it
     #' @param file The path to a file to parse
-    #' @param env The environment to evaluate the content of the file in
+    #' @param env The parent environment to the environment the file should be
+    #' evaluated in
     parse_file = function(file, env = caller_env()) {
-      parsed <- parse_plumber_file(file, env)
+      eval_env <- new.env(parent = env)
+      parsed <- parse_plumber_file(file, eval_env)
       if (!parsed$route[[1]]$empty) {
         if (!self$request_router$has_route(names(parsed$route))) {
           self$add_route(names(parsed$route))

R/api.R

@@ -43,7 +43,9 @@
 #' plain text but rely on e.g. the keyring package for storage. Even so, if
 #' requests are send over HTTP (not HTTPS) then anyone can read the secret and
 #' use it
-#' @param env The environment the files should be parsed in
+#' @param env The parent environment to the environment the files should be
+#' evaluated in. Each file will be evaluated in it's own environment so they
+#' don't interfere with each other
 #'
 #' @return A Plumber object
 #'

R/parse_plumber_file.R

@@ -32,6 +32,9 @@ parse_plumber_file <- function(path, env = caller_env()) {
   if (!fs::file_exists(path)) {
     cli::cli_abort("{.arg path} must point to an existing file", call = env)
   }
+
+  source(path, local = env, verbose = FALSE)
+
   file <- readLines(path)
   file <- sub("^#([^\\*])", "##\\1", file)
   file <- sub("^#\\*", "#'", file)