R/get_neptune.R

In neptune-ai/neptune-r: MLOps Metadata Store - Experiment Tracking and Model Registry for Production Teams

get_neptune <- function() {
  npt <- options("neptune")
  if (is.null(npt$neptune)) {
    tryCatch(
      {
        neptune <- reticulate::import("neptune.new")
      },
      error = function(e) {
        message("couldn't import neptune client. Trying to install")
        neptune_install()
        neptune <- reticulate::import("neptune.new")
      }
    )
    options(neptune = neptune)
  }

  npt <- options("neptune")$neptune
  return(npt)
}