Nothing
sumna <- function(v){
if(any(class(v) %in% c("numeric", "character", "integer", "logical", "factor"))){
if(any(class(v) == "numeric")) nasum <- na_numeric(v)
if(any(class(v) == "character")) nasum <- na_character(v)
if(any(class(v) == "integer")) nasum <- na_integer(v)
if(any(class(v) == "factor")) nasum <- na_integer(v)
if(any(class(v) == "logical")) nasum <- na_logical(v)
} else {
nasum <- sum(is.na(v))
}
return(nasum)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.