allna.omit <- function(data){ data = data[rowSums(is.na(data))!=ncol(data),] data=data[,unlist(lapply(data,function(x){!all(is.na(x))}))] return(data) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.