Make isFALSE() like base::isFALSE()

fix yihui/knitr#2199
yihui · Nov 24, 2022 · e73947c · e73947c
1 parent 273404e
commit e73947c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -92,15 +92,15 @@ in_dir = function(dir, expr) {
 
 #' Test if an object is identical to \code{FALSE}
 #'
-#' A simple abbreviation of \code{identical(x, FALSE)}.
 #' @param x An R object.
 #' @export
 #' @examples
 #' library(xfun)
 #' isFALSE(TRUE)  # false
 #' isFALSE(FALSE)  # true
 #' isFALSE(c(FALSE, FALSE))  # false
-isFALSE = function(x) identical(x, FALSE)
+# TODO: replace by base::isFALSE() when min R for knitr will be 3.5.0
+isFALSE = function(x) is.logical(x) && length(x) == 1L && !is.na(x) && !x
 
 #' Parse R code and do not keep the source
 #'

diff --git a/man/isFALSE.Rd b/man/isFALSE.Rd