Create prometheus_endpoint.R

getting_started/prometheus_endpoint.R

@@ -0,0 +1,29 @@
+library(shiny)
+library(jsonlite)
+library(callr)
+library(datasets)
+
+ui <- function(req) {
+
+  query_params <- parseQueryString(req$QUERY_STRING)
+  body_bytes <- req$rook.input$read(-1)
+  print(query_params)
+  print(body_bytes)
+
+  if (identical(req$REQUEST_METHOD, "GET")) {
+
+    if(req$PATH_INFO == "/") {
+      fluidPage(
+        h1("Accepting POST requests from Shiny")
+      )   
+    } 
+  }
+}
+#attr(ui, "http_methods_supported") <- c("GET", "POST")
+
+server <- function(input, output, session) {}
+
+#app <- shinyApp(ui, server, uiPattern = ".*")
+
+app <- shinyApp(ui, server)
+openmetrics::register_shiny_metrics(app, registry = openmetrics::global_registry())