reference.type <- function(reference){
if(('list' %in% class(reference)) & all(c('allele.info', 'ref.geno') %in% names(reference))){
return('ref.does')
}
header <- c("bed", "bim", "fam")
tmp <- (header %in% colnames(reference))
if(is.data.frame(reference) && !any(tmp)){
return('ref.geno')
}else{
return('ref.files')
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.