###############################################################################
#
###############################################################################
.is_nonempty_list_of_data_frames <- function(x) {
is.list(x) &&
length(x) > 0 &&
all(as.logical(Map(is.data.frame, x)))
}
###############################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.