if (FALSE) {
f1 <- function(x) {
if (!isEmpty(x)) return(mean(x, na.rm = TRUE))
return(NULL)
}
f1() #> NULL
f1(x = NA) #> NULL
f1(x = NULL) #> NULL
f1(x = c(NA, 1:2)) #> 1.5
}
Run the code above in your browser using DataLab