object_detector.R

library(dplyr)
library(httr)

# Endpoint
endpoint <- 'http://max-object-detector.max.us-south.containers.appdomain.cloud/'
# endpoint <- 'http://localhost:5000'  # if running docker locally or docker hub

object_detector <- function(path_to_img, endpoint) {
  model_endpoint <- paste0(endpoint, 'model/predict')  # Model endpoint
  # POST 
  response <- httr::POST(model_endpoint, 
                         body = list(image = upload_file(path_to_img, 
                                                         type = "image/jpeg")), 
                         encode = c("multipart")
  ) %>% content()
  response$predictions
}

object_detector("imgs/baby-bear.jpg", endpoint)