diff --git a/R/FeatureEngineering.R b/R/FeatureEngineering.R index 7d448d72..6a325ab3 100644 --- a/R/FeatureEngineering.R +++ b/R/FeatureEngineering.R @@ -111,7 +111,7 @@ createUnivariateFeatureSelection <- function(k = 100) { #' An object of class \code{featureEngineeringSettings} #' @export createRandomForestFeatureSelection <- function(ntrees = 2000, maxDepth = 17) { - rlang::CheckInstalled( + rlang::check_installed( "reticulate", reason = "This function requires the reticulate package to be installed" ) diff --git a/tests/testthat/helper-objects.R b/tests/testthat/helper-objects.R index 0913c819..03686e48 100644 --- a/tests/testthat/helper-objects.R +++ b/tests/testthat/helper-objects.R @@ -37,12 +37,6 @@ if (Sys.getenv("GITHUB_ACTIONS") == "true") { saveLoc <- tempfile("saveLoc") dir.create(saveLoc) - -# @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ -# simulated data Tests -# @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ -data("plpDataSimulationProfile") - # PLPDATA connectionDetails <- Eunomia::getEunomiaConnectionDetails() Eunomia::createCohorts(connectionDetails)