API done 2 wayys ambiorix vs plumber

gistfile1.txt

app <- ambiorix::Ambiorix$new()

app$post("/process", function(req, res) {
  body <- yyjsonr::read_json_raw(req$rook.input$read())
  msg <- sprintf(
    "Hello, %s! Your age is %i, and your email is %s.",
    body[["name"]], body[["age"]], body[["email"]]
  )
  res$json(list(message = msg, status = "success"))
})

app$start()

library(plumber)

pr() |>
  pr_post("/process", function(req, res) {
    msg <- sprintf(
      "Hello, %s! Your age is %i, and your email is %s.",
      req$body[["name"]], req$body[["age"]], req$body[["email"]]
    )
    list(message = msg, status = "success")
  }) |> 
  pr_run()