invalid(NA)
invalid()
invalid(c(NA, NA, NULL, NA))
invalid(list(a = 1, b = NULL))
x <- try(log("A"))
invalid(x)
# example use in a function
myplot <- function(x, y) {
if (invalid(y)) {
y <- x
x <- 1:length(y)
}
plot(x, y)
}
myplot(1:10)
myplot(1:10, NA)
Run the code above in your browser using DataLab