BUGFIX: was using is.na instead of is.null in a test

rte-antares-rpackage · Jan 19, 2017 · 85b5ef9 · 85b5ef9
1 parent b499b71
commit 85b5ef9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/controlsUtils.R b/R/controlsUtils.R
@@ -170,8 +170,8 @@ initValueIsValid <- function(x) {
     if (length(params$value) == 0) return(FALSE)
     if (is.na(params$value) ) return(TRUE)
     if (!is.numeric(params$value)) return(FALSE)
-    if (!is.na(params$min) && params$value < params$min) return(FALSE)
-    if (!is.na(params$max) && params$value > params$max) return(FALSE)
+    if (!is.null(params$min) && params$value < params$min) return(FALSE)
+    if (!is.null(params$max) && params$value > params$max) return(FALSE)
     return(TRUE)
   }