changed maintainer, fixed tests, updated documentation

DESCRIPTION

@@ -1,17 +1,17 @@
 Package: manipulateWidget
 Type: Package
 Title: Add Even More Interactivity to Interactive Charts
-Version: 0.10.0
-Date: 2018-06-07
+Version: 0.10.0.900
 Authors@R: c(
-    person("Jalal-Edine", "ZAWAM", email = "jalal-edine.zawam@rte-france.com", role = c("aut", "cre")),
-    person("Francois", "Guillem", email = "francois.guillem@rte-france.com", role = c("aut")),
+    person("Veronique", "Bachelier", email = "veronique.bachelier@rte-france.com", role = c("aut", "cre")),
+    person("Jalal-Edine", "ZAWAM", role = "aut"),
+    person("Francois", "Guillem", role = "aut"),
     person("RTE", role = "cph"),
     person("JJ", "Allaire", role = "ctb"),
-	  person("Marion", "Praz", email="mnpraz@gmail.com", role = "ctb", comment = "New user interface"),
-	  person("Benoit", "Thieurmel", role = "ctb", email = "benoit.thieurmel@datastorm.fr"),
-	  person(given = "Titouan", family = "Robert", email = "titouan.robert@datastorm.fr", role = "ctb"),
-	  person("Duncan", "Murdoch", email = "murdoch.duncan@gmail.com", role = "ctb")
+	person("Marion", "Praz", email="mnpraz@gmail.com", role = "ctb", comment = "New user interface"),
+	person("Benoit", "Thieurmel", role = "ctb", email = "benoit.thieurmel@datastorm.fr"),
+	person(given = "Titouan", family = "Robert", email = "titouan.robert@datastorm.fr", role = "ctb"),
+	person("Duncan", "Murdoch", email = "murdoch.duncan@gmail.com", role = "ctb")
     )
 Description: Like package 'manipulate' does for static graphics, this package
     helps to easily add controls like sliders, pickers, checkboxes, etc. that 
@@ -40,6 +40,6 @@ Suggests:
     testthat,
     covr
 LazyData: TRUE
-RoxygenNote: 6.0.1
+RoxygenNote: 7.0.2
 VignetteBuilder: knitr
 Encoding: UTF-8

NAMESPACE

@@ -1,4 +1,4 @@
-# Generated by roxygen2: do not edit by hand
+# Generated by roxygen2: do not edit by hand
 
 S3method(summary,MWController)
 export(combineWidgets)

R/inputs.R

@@ -89,7 +89,7 @@ mwSlider <- function(min, max, value, label = NULL, ..., .display = TRUE) {
     type = "slider", value = value, label = label, params = params,
     display = substitute(.display),
     validFunc = function(x, params) {
-      if (is.null(x) || is.na(x)) return(c(params$min, params$max))
+      if (is.null(x) || all(is.na(x))) return(c(params$min, params$max))
       pmin(pmax(params$min, x, na.rm = TRUE), params$max, na.rm = TRUE)
     },
     htmlFunc = htmlFuncFactory(function(...) {