#!/usr/bin/env Rscript

library(this.path)
library(renv)
load(here(".."))

# Bring in library for prediction server
library(plumber)

# Setup scoring function
serve <- function() {
    app <- plumb(here("plumber.R"))
    app$run(host = "0.0.0.0", port = 8080)
}

serve()
