Adding service accesor method and fixing instance order

src/base.jl

@@ -30,3 +30,10 @@ function save(logger::MLFlowLogger, mach::Machine)
  logartifact(logger.service, run, fname, io)
  updaterun(logger.service, run, "FINISHED")
 end
+
+"""
+ service(logger::MLFlowLogger)
+
+Returns the MLFlow service of a logger.
+"""
+service(logger::MLFlowLogger) = logger.service

src/types.jl

@@ -36,5 +36,5 @@ function MLFlowLogger(baseuri; experiment_name="MLJ experiment",
  if ~healthcheck(service)
  error("It seems that the MLFlow server is not running. For more information, see https://mlflow.org/docs/latest/quickstart.html")
  end
- MLFlowLogger(service, experiment_name, artifact_location, verbosity)
+ MLFlowLogger(service, 1, experiment_name, artifact_location)
 end

test/base.jl

@@ -1,4 +1,4 @@
-@testset "logging functions" begin
+@testset verbose = true "base" begin
  logger = MLFlowLogger("http://localhost:5000";
  experiment_name="MLJFlow tests",
  artifact_location="./mlj-test")
@@ -35,6 +35,10 @@
  @test loaded_mach.model isa ProbabilisticPipeline
  end
 
+ @testset "accesor methods" begin
+ @test MLJFlow.service(logger) isa MLFlow
+ end
+
  experiment = getorcreateexperiment(logger.service, logger.experiment_name)
  deleteexperiment(logger.service, experiment)
 end

test/types.jl

@@ -1,4 +1,4 @@
-@testset "logger type" begin
+@testset "types" begin
  logger = MLFlowLogger("http://localhost:5000")
 
  @test typeof(logger) == MLFlowLogger