feat: ambiorix middleware

DESCRIPTION

@@ -18,7 +18,7 @@ License: AGPL-3
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
 Imports: 
   R6,
   shiny,

NAMESPACE

@@ -23,5 +23,6 @@ export(previewMetrics)
 export(renderMetrics)
 export(setAuthentication)
 export(setTitanNamespace)
+export(titan)
 export(titanApp)
 importFrom(utils,getFromNamespace)

NEWS.md

@@ -1,3 +1,7 @@
+# titan 2.0.1
+
+- Added ambiorix middleware
+
 # titan 2.0.0
 
 - Refactor entire source code.

R/ambiorix.R

@@ -0,0 +1,18 @@
+#' Ambiorix Middleware
+#' 
+#' Middleware for ambiorix.
+#' 
+#' @param path Path on which to serve the metrics.
+#' Default recommended.
+#' 
+#' @export
+titan <- function(
+  path = "metrics"
+) {
+  function(req, res) {
+    if(!req$PATH_INFO == "/metrics")
+      return()
+
+    res$test(renderMetrics())
+  }
+}

docs/guide/ambiorix.md

@@ -11,7 +11,7 @@ Then again, the metrics themselves and their usage does not differ, only the way
 
 With [ambiorix](https://github.com/JohnCoene/ambiorix), create a new `get` method on the `/metrics` endpoint, and have it return the results of `renderMetrics`.
 
-```r hl_lines="23 24 25"
+```r hl_lines="11"
 library(titan)
 library(ambiorix)
 
@@ -24,6 +24,8 @@ c <- Counter$new(
 
 app <- Ambiorix$new()
 
+app$use(titan())
+
 app$get("/", function(req, res){
   c$inc(path = "/")
   res$send("Using {titan} with {ambiorix}!")
@@ -34,9 +36,5 @@ app$get("/about", function(req, res){
   res$send("About {titan} and {ambiorix}!")
 })
 
-app$get("/metrics", function(req, res){
-  res$text(renderMetrics())
-})
-
 app$start()
 ```