allow user to overwrite host parameter

ThinkR-open · Nov 21, 2023 · 0e4c6bc · 0e4c6bc
1 parent 20abf32
commit 0e4c6bc
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/inst/marioboxexample/R/run_plumber.R b/inst/marioboxexample/R/run_plumber.R
@@ -3,9 +3,12 @@
 #' Read the yaml file listing all endpoints and
 #' deploy them
 #'
+#' @param host The IPv4 address that the plumber should listen on.
+#' Defaults to the plumber.host option, if set, or "127.0.0.1" if not. 
+#'
 #' @export
-run_api <- function() {
-  generate_api()$run()
+run_api <- function(host = getOption("plumber.host",default = "127.0.0.1")) {
+  generate_api()$run(host = host)
 }
 
 generate_api <- function() {