replace use of isFALSE for compatability with R < 3.5

hturner · Apr 1, 2019 · 3779dcd · 3779dcd
1 parent 5a38f59
commit 3779dcd
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/PlackettLuce.R b/R/PlackettLuce.R
@@ -333,7 +333,8 @@ PlackettLuce <- function(rankings,
     stopifnot(all(weights > 0L))
 
     # check gamma prior specification
-    if (isFALSE(gamma)) gamma <- NULL # in case specified as FALSE
+    if (is.logical(gamma) && length(gamma) == 1L && !is.na(gamma) && !gamma)
+        gamma <- NULL # in case specified as FALSE
     if (!is.null(gamma)) { # specified or TRUE
         if (isTRUE(gamma)) gamma <- list(shape = 10, rate = 10)
         stopifnot(names(gamma) == c("shape", "rate"))