exists_not_empty <- function(files){
sapply(files, function(f){
if(file.exists(f)){
l <- readLines(f)
not_empty <- length(l)>0
return(not_empty)
} else {return(FALSE)}
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.