MakeDB <- function(dbtype = "nucl", fsa_file){
syscommand <- paste("makeblastdb -in ", fsa_file, " -dbtype ", dbtype, " -parse_seqids", sep = "")
system(syscommand)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.