a <- 1
is_not_false(a)
f <- function() {
a <- NULL
should_be_true <- ! is_not_false(a, null_is_false = TRUE,
where = environment())
return(should_be_true)
}
print(f())
Run the code above in your browser using DataLab