dics <- function(fital) {unlist(lapply(fital,function(x) if(!is.null(x$dic[1])) x$dic[1] else NA))}
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.