fix import

Author: mllg

NAMESPACE

@@ -18,6 +18,7 @@ importFrom(mlr3,TaskClassif)
 importFrom(mlr3,TaskRegr)
 importFrom(mlr3,as_data_backend)
 importFrom(mlr3,as_task)
+importFrom(stats,rnorm)
 importFrom(utils,bibentry)
 useDynLib(mlr3oml,c_parse_arff_levels)
 useDynLib(mlr3oml,c_remove_comment)

R/helper_download.R

@@ -73,7 +73,7 @@ get_json = function(url, ..., simplify_vector = TRUE, simplify_data_frame = TRUE
       return(json)
     } else if (retry < retries) {
       if (response$oml_code %in% c(107L)) {
-        delay = abs(rnorm(1L, mean = 10))
+        delay = max(rnorm(1L, mean = 10), 0)
         lg$debug("Server busy, retrying in %.2f seconds", delay, try = retry)
         Sys.sleep(delay)
       } else {
@@ -123,7 +123,7 @@ get_arff = function(url, ..., sparse = FALSE, api_key = get_api_key(), retries =
 
       return(tab)
     } else if (retry < retries && response$http_code >= 500L) {
-      delay = abs(rnorm(1L, mean = 10))
+      delay = max(rnorm(1L, mean = 10), 0)
       lg$debug("Server busy, retrying in %.2f seconds", delay, try = retry)
       Sys.sleep(delay)
     }

R/zzz.R

@@ -1,6 +1,7 @@
 #' @import checkmate
 #' @import data.table
 #' @import mlr3misc
+#' @importFrom stats rnorm
 #' @importFrom mlr3 as_data_backend TaskClassif TaskRegr
 #' @importFrom R6 R6Class
 #'