restore ! behavior

Author: Enchufa2

R/ops.R

@@ -26,6 +26,9 @@
 #'
 #' @export
 Ops.errors <- function(e1, e2) {
+  if (.Generic == "!")
+    return(NextMethod())
+
   cmp <- .Generic %in% c("==", "!=", "<", ">", "<=", ">=") # comparison-type
   pm  <- .Generic %in% c("+", "-")                         # addition-type
   prd <- .Generic %in% c("*", "/", "%/%", "%%")            # product-type

tests/testthat/test-ops.R

@@ -42,7 +42,6 @@ test_that("boolean ops return probabilities", {
   expect_equal(x1 != y1, c(TRUE, TRUE))
 
   # not allowed
-  expect_error(!x1, "not allowed")
   expect_error(x1 & x1, "not allowed")
   expect_error(x1 | x1, "not allowed")
 })