# old_opts = options(
#   warnPartialMatchArgs = TRUE,
#   warnPartialMatchAttr = TRUE,
#   warnPartialMatchDollar = TRUE
# )

# https://github.com/HenrikBengtsson/Wishlist-for-R/issues/88
# old_opts = lapply(old_opts, function(x) if (is.null(x)) FALSE else x)

old_threshold = lgr::get_logger("mlr3")$threshold
old_plan = future::plan()
lgr::get_logger("mlr3")$set_threshold(0)
future::plan("sequential")