remove_na <- function(x ){ x[!is.na(x)] } assert_na <- function( x){ if( any(is.na(x))) warning ( dal_msg$glb$na) return(NULL) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.