fix helper

DESCRIPTION

@@ -48,7 +48,7 @@ Config/reticulate:
       list(package = "torch"),
       list(package = "polars"),
       list(package = "duckdb"),
-      list(package = "pyarrow")
+      list(package = "pyarrow"),
       list(package = "tqdm"),
       list(package = "connectorx"),
       list(package = "pynvml")

R/HelperFunctions.R

@@ -86,7 +86,7 @@ checkIsClass <- function(parameter, classes) {
 #' @param value which value it should be higher than
 checkHigher <- function(parameter, value) {
   name <- deparse(substitute(parameter))
-  if (!is.numeric(parameter) || all(parameter == value)) {
+  if (!is.numeric(parameter) || all(parameter <= value)) {
     ParallelLogger::logError(paste0(name, " needs to be > ", value))
     stop(paste0(name, " needs to be > ", value))
   }

tests/testthat/test-HelperFunctions.R

@@ -0,0 +1,25 @@
+test_that("Helper functions", {
+  expect_true(checkInStringVector("test", c("test", "test2")))
+  expect_error(checkInStringVector("test", c("test2", "test3")))
+
+  local({
+    filePath <<- withr::local_tempfile(lines = "File contents")
+    expect_true(checkFileExists(filePath))
+  })
+  expect_error(checkFileExists(filePath))
+
+  # checkHigherEqual
+  expect_true(checkHigherEqual(2, 1))
+  expect_true(checkHigherEqual(1, 1))
+  expect_error(checkHigherEqual(0, 1))
+
+  # checkHigher
+  expect_true(checkHigher(2, 1))
+  expect_error(checkHigher(1, 1))
+  expect_error(checkHigher(0, 1))
+
+  # checkIsClass)
+  expect_true(checkIsClass(2, c("numeric", "integer")))
+  expect_error(checkIsClass(2, c("character")))
+  expect_error(checkIsClass("2", c("numeric", "integer")))
+})