feat: add mlr3 base logger (#287)

* feat: add mlr3 base logger

* ...

Author: be-marc

R/zzz.R

@@ -17,21 +17,14 @@
   x$add("bbotk.backup", load_callback_backup)
   x$add("bbotk.async_freeze_archive", load_callback_freeze_archive)
 
-  lg = lgr::get_logger("bbotk")
+  lg = lgr::get_logger("mlr3/bbotk")
   assign("lg", lg, envir = parent.env(environment()))
   f = function(event) {
     event$msg = paste("[bbotk]", event$msg)
     TRUE
   }
   lg$set_filters(f)
 
-  register_namespace_callback("bbotk", "mlr3", function(pkgname, pkgpath) {
-    x = utils::getFromNamespace("mlr_reflections", ns = "mlr3")
-    if (is.list(x$loggers)) { # be backward compatible with mlr3 <= 0.13.0
-      x$loggers[["bbotk"]] = lg
-    }
-  })
-
   if (Sys.getenv("IN_PKGDOWN") == "true") {
     lg$set_threshold("warn")
   }

tests/testthat/setup.R

@@ -7,7 +7,7 @@ old_opts = options(
 # https://github.com/HenrikBengtsson/Wishlist-for-R/issues/88
 old_opts = lapply(old_opts, function(x) if (is.null(x)) FALSE else x)
 
-lg_bbotk = lgr::get_logger("bbotk")
+lg_bbotk = lgr::get_logger("mlr3/bbotk")
 lg_rush = lgr::get_logger("rush")
 
 old_threshold_bbotk = lg_bbotk$threshold