# internal wrapper for mean function to handle all NA obs
mean_fn <- function(x, ...) {
out <- NA
if (!all(is.na(x)))
out <- mean(x, ...)
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.