remove isFalse to resolve #100 (comment)

r-spatial · Jul 17, 2019 · 6b206f8 · 6b206f8
1 parent 231d71c
commit 6b206f8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/addToolbar.R b/R/addToolbar.R
@@ -12,7 +12,7 @@
 ##'     \code{leafpm::addPmToolbar}.
 processOpts <- function(fun, args) {
     ## Account for special meaning of `FALSE` as arg in leaflet.extras
-    if(isFALSE(args)) {
+    if(!is.null(x) && !isTRUE(x)) {
         return(FALSE)
     } else {
         return(do.call(fun, args))