check_peakfiles <- function(peakfiles){
if(all(unlist(lapply(peakfiles,length))==0)){
stopper("No peaks found in any of the peakfiles.")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.