Nothing
update.reference.info <- function(ref.info, snps){
ref.info <- ref.info[ref.info$SNP %in% snps, ]
if(nrow(ref.info) == 0){
msg <- 'No SNP left'
stop(msg)
}
rownames(ref.info) <- ref.info$SNP
ref.info
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.