Fix #17

Author: thomasp85

R/Plumber.R

@@ -282,7 +282,7 @@ Plumber <- R6Class(
       })
 
       # Substitute the plumber style path arg for a routr style
-      path <- stri_replace_all_regex(path, "<(.+?)(:.+?)?>", ":$1")
+      path <- as_routr_path(path)
 
       if (header) {
         router <- self$header_router

R/aaa.R

@@ -13,10 +13,27 @@ as_openapi_path <- function(x) {
   )
 }
 
-as_routr_path <- function(x) {
-  stringi::stri_replace_all_regex(
+as_routr_path <- function(x, call = caller_env()) {
+  path <- stringi::stri_replace_all_regex(
     x,
     "<(.+?)(:.+?)?>",
     ":$1"
   )
+  params <- sub(":", "", stringi::stri_extract_all_regex(x, ":[^/]+")[[1]])
+
+  protected_names <- c(
+    "request",
+    "response",
+    "server",
+    "client_id",
+    "query",
+    "body"
+  )
+  if (any(params %in% protected_names)) {
+    cli::cli_abort(c(
+      "Path parameters must not take the name of any of the arguments that are passed to the handler",
+      i = "Rename any parameters named {.or {.val {protected_names}}}"
+    ))
+  }
+  path
 }