R/parse_neptune_version.R

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

parse_neptune_version <-
  function(version) {
    # returns unquoted string directly passable to pip, e.g 'neptune-client==0.1.*'

    if (is.null(version) || is.na(version) || version %in% c("", "release")) {
      return("neptune-client")
    }

    version <- as.character(version) # if numeric_version()

    # full path to whl.
    if (grepl("^.*\\.whl$", version)) {
      return(normalizePath(version))
    }

    package <- "neptune-client"

    if (version %in% c("default", "")) {
      return(package)
    }

    if (!grepl("[><=]", version)) {
      version <- sprintf("==%s.*", version)
    }

    paste0(package, version)
  }