From 1f7495819c0c498ddf4b55b4c6c67530d7277f30 Mon Sep 17 00:00:00 2001 From: lucillelu530 Date: Mon, 26 Jan 2026 23:19:06 -0500 Subject: [PATCH 1/2] Change '!=' to '%in%' for compability --- R/OnlineSuperLearner.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/OnlineSuperLearner.R b/R/OnlineSuperLearner.R index bd790eb..d05c894 100644 --- a/R/OnlineSuperLearner.R +++ b/R/OnlineSuperLearner.R @@ -767,7 +767,7 @@ OnlineSuperLearner <- R6Class ("OnlineSuperLearner", if (length(self$get_estimator_descriptions) == 0 || length(self$get_estimators) == 0 ) { throw("There should be at least one estimator in the library") } - if (is.null(self$get_summary_measure_generator) || class(self$get_summary_measure_generator) != 'SummaryMeasureGenerator') { + if (is.null(self$get_summary_measure_generator) || class(self$get_summary_measure_generator) %in% 'SummaryMeasureGenerator') { throw("You need to provide a summary measure generator of class SummaryMeasureGenerator") } if (!is.a(self$get_weighted_combination_computers, 'list')) { From a56d6a8188b5ced41d8e5db0e56a1b6b64c08679 Mon Sep 17 00:00:00 2001 From: lucillelu530 Date: Mon, 26 Jan 2026 23:57:00 -0500 Subject: [PATCH 2/2] Fix problem when initializing a OSL --- R/OnlineSuperLearner.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/OnlineSuperLearner.R b/R/OnlineSuperLearner.R index d05c894..9bc9dd3 100644 --- a/R/OnlineSuperLearner.R +++ b/R/OnlineSuperLearner.R @@ -767,7 +767,7 @@ OnlineSuperLearner <- R6Class ("OnlineSuperLearner", if (length(self$get_estimator_descriptions) == 0 || length(self$get_estimators) == 0 ) { throw("There should be at least one estimator in the library") } - if (is.null(self$get_summary_measure_generator) || class(self$get_summary_measure_generator) %in% 'SummaryMeasureGenerator') { + if (is.null(self$get_summary_measure_generator) || !("SummaryMeasureGenerator" %in% class(self$get_summary_measure_generator))) { throw("You need to provide a summary measure generator of class SummaryMeasureGenerator") } if (!is.a(self$get_weighted_combination_computers, 'list')) {