partial fix: bbotk logger depending on package version

Author: sumny

R/AcqOptimizer.R

@@ -150,7 +150,7 @@ AcqOptimizer = R6Class("AcqOptimizer",
     optimize = function() {
       is_multi_acq_function = self$acq_function$codomain$length > 1L
 
-      lg = lgr::get_logger("bbotk")
+      lg = lgr::get_logger("mlr3/bbotk")
       old_threshold = lg$threshold
       lg$set_threshold(self$param_set$values$logging_level)
       on.exit(lg$set_threshold(old_threshold))

R/OptimizerAsyncMbo.R

@@ -218,7 +218,7 @@ OptimizerAsyncMbo = R6Class("OptimizerAsyncMbo",
 
       check_packages_installed(self$packages, msg = sprintf("Package '%%s' required but not installed for Optimizer '%s'", format(self)))
 
-      lg = lgr::get_logger("bbotk")
+      lg = lgr::get_logger("mlr3/bbotk")
       pv = self$param_set$values
 
       # initial design
@@ -331,7 +331,7 @@ OptimizerAsyncMbo = R6Class("OptimizerAsyncMbo",
     .result_assigner = NULL,
 
     .optimize = function(inst) {
-      lg = lgr::get_logger("bbotk")
+      lg = lgr::get_logger("mlr3/bbotk")
       lg$debug("Optimizer '%s' evaluates the initial design", self$id)
       get_private(inst)$.eval_queue()
 

R/OptimizerMbo.R

@@ -335,7 +335,7 @@ OptimizerMbo = R6Class("OptimizerMbo",
           {
             self$surrogate$update()
           }, surrogate_update_error = function(error_condition) {
-            lg = lgr::get_logger("bbotk")
+            lg = lgr::get_logger("mlr3/bbotk")
             lg$warn("Could not update the surrogate a final time after the optimization process has terminated.")
           }
         )

R/zzz.R

@@ -30,7 +30,9 @@ register_mlr3tuning = function() {
   register_namespace_callback(pkgname, "bbotk", register_bbotk)
   register_namespace_callback(pkgname, "mlr3tuning", register_mlr3tuning)
 
-  assign("lg", lgr::get_logger("bbotk"), envir = parent.env(environment()))
+  #https://github.com/mlr-org/bbotk/blob/ae6cac60f71b3c44ce1bb29669f5d06cddeb95d4/R/zzz.R#L20
+  lg = lgr::get_logger("mlr3/bbotk")
+  assign("lg", lg, envir = parent.env(environment()))
 
   if (Sys.getenv("IN_PKGDOWN") == "true") {
     lg$set_threshold("warn")

attic/so_config/analyze.R

@@ -8,7 +8,7 @@ old_opts = options(
 old_opts = lapply(old_opts, function(x) if (is.null(x)) FALSE else x)
 
 lg_mlr3 = lgr::get_logger("mlr3")
-lg_bbotk = lgr::get_logger("bbotk")
+lg_bbotk = lgr::get_logger("mlr3/bbotk")
 lg_rush = lgr::get_logger("rush")
 
 old_threshold_mlr3 = lg_mlr3$threshold