invalid(NA)
invalid()
invalid(c(NA,NA,NULL,NA))
invalid(list(a=1,b=NULL))
# 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