trim.deleted.snps <- function(deleted.snps, options){
if(options$tidy && nrow(deleted.snps)){
keep.row <- which(!(deleted.snps$reason %in% c("NO_SUM_STAT", "NO_REF", "NO_RAW_GENO")))
deleted.snps <- deleted.snps[keep.row, , drop = FALSE]
}
deleted.snps
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.