library(titan)library(ambiorix)# basic counterc<-Counter$new(name="visits_total",help="Total visit to the site",labels="path")app<-Ambiorix$new()app$get("/",function(req,res){c$inc(path="/")res$send("Using {titan} with {ambiorix}!")})app$get("/about",function(req,res){c$inc(path="/about")res$send("About {titan} and {ambiorix}!")})app$get("/metrics",function(req,res){res$text(renderMetrics())})app$start()