fix: correct function name in YAML

ThinkR-open · Sep 16, 2022 · 897a011 · 897a011
1 parent 90de506
commit 897a011
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/R/manage_endpoints.R b/R/manage_endpoints.R
@@ -63,11 +63,17 @@ add_endpoint <- function(
     eval.expr = FALSE
   )
 
+  fct_name <- sprintf(
+    "%s_%s",
+    tolower(method),
+    name
+  )
+
   if (is.null(yml$handles[[name_yaml]])) {
     yml$handles[[name_yaml]] <- list(
       methods = method,
       path = sprintf("/%s", name),
-      handler = name
+      handler = fct_name
     )
   } else {
     cli_alert_danger(
@@ -84,11 +90,7 @@ add_endpoint <- function(
     mariobox_yaml_path
   )
 
-  fct_name <- sprintf(
-    "%s_%s",
-    tolower(method),
-    name
-  )
+
   usethis_use_r(
     name = fct_name,
     open = open,