listNulltoNA <- function(x){ if(length(x) == 0){ return(NA) } else { x[sapply(x, is.null)] <- NA return(x) } }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.