faSeqNames <- function( fastaFiles, threads=getOption("threads",1L) ){
cmdString <- paste0("grep \"^>\" ",fastaFiles," | sed 's/^>//g'")
res <- cmdRun(cmdString,lines=T,threads=threads)
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.