Add API using plumber

R/app.R

@@ -18,3 +18,23 @@ run_app <- function(host = "127.0.0.1",
     port = port
   )
 }
+
+#' Run the Ubigen API.
+#'
+#' This requires the `plumber` package to be installed.
+#'
+#' @param host The hostname to serve the API on.
+#' @param port The port to serve the API on.
+#'
+#' @export
+run_api <- function(host = "127.0.0.1", port = 3465) {
+  if (!requireNamespace("plumber", quietly = TRUE)) {
+    stop("Please install \"plumber\" to use this function.")
+  }
+
+  plumber::plumb(file = system.file(
+    "plumber", "ubigen", "plumber.R",
+    package = "ubigen"
+  )) |>
+    plumber::pr_run(host = host, port = port, docs = FALSE)
+}