ch: handle continual processing of requests using httpuv

[kennedymwavu]

closes #97

here's a minimal reprex for testing purposes:

devtools::load_all()
library(htmltools)

page_links <- \() {
  Map(
    f = \(href, label) {
      tags$a(href = href, label)
    },
    c("/", "/about", "/contact"),
    c("Home", "About", "Contact")
  )
}

home_get <- \(req, res) {
  html <- tagList(
    page_links(),
    tags$h3("hello, world!")
  )
  res$send(html)
}

about_get <- \(req, res) {
  html <- tagList(
    page_links(),
    tags$h3("About Us")
  )
  res$send(html)
}

contact_get <- \(req, res) {
  html <- tagList(
    page_links(),
    tags$h3("Get In Touch!")
  )
  res$send(html)
}

app <- Ambiorix$new()
app$get("/", home_get)
app$get("/about", about_get)
app$get("/contact", contact_get)
app$start()

[JohnCoene]

LGTM