table.format.check <- function(results.table, gene.label){
if (!(is.data.frame(results.table))) stop('Entered results table is not a data frame', call. = F)
if (!( gene.label %in% colnames(results.table))) stop(paste(gene.label,
" column not present in table, check gene.label argument" ,call. = F))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.