assert_numeric <- function(x, upper = NULL , lower = NULL){
if ( !all( map_lgl( x , is.numeric ) )) {
warning(dal_msg$num$num)
return(NULL)
}
if( !is.null(upper))
if(max(x) > upper)
warning(dal_msg$num$upper)
if( !is.null(lower))
if(min(x) < lower)
warning(dal_msg$num$lower)
return(NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.