# Lancement du service Plumber
suppressPackageStartupMessages({ 
  library(plumber)
  #library(plumber2)
  library(here)
  })

pr <- plumb(here("R", "api", "plumber.R"))
options(plumber.debug = TRUE)
pr$run(
  host = "0.0.0.0",
  port = as.integer(Sys.getenv("PORT", "8000"))
)