fix unit tests

jasp-stats · Sep 18, 2024 · f70855e · f70855e
1 parent 3670324
commit f70855e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rareEventCharts.R b/R/rareEventCharts.R
@@ -108,7 +108,7 @@ rareEventCharts <- function(jaspResults, dataset, options) {
     }
 
     # if intervals contains any negative values, throw error
-    if (any(intervals < 0)) {
+    if (any(intervals < 0, na.rm = TRUE)) {
       errorPlot <-  createJaspPlot(title = gettext("Rare event charts"), width = 1200, height = 500)
       errorPlot$dependOn(c("variable", "stage", "dataType", "dataTypeDatesStructure", "dataTypeDatesFormatDate",
                            "dataTypeDatesFormatTime", "dataTypeIntervalType", "dataTypeIntervalTimeFormat"))