R/list_model.R

In jcpsantiago/sagemaker-multimodel-R: Sagemaker Multi Model API

#' List currently loaded models
#'
#' @param req Request object
#' @param res Response object
#'
#' @return List of loaded models tracked in `loaded_models`
#' @export
list_model <- function(req, res) {
  message("Returning currently loaded models...")

  currently_loaded_models <- list(
    models = .sage$loaded_models[c("modelName", "modelUrl")]
  )

  return(currently_loaded_models)
}