read_fasta <- function(file_fasta) {
lines <- readLines(file_fasta)
which(grepl(">", lines))
}
sec <- read_fasta("inst/datos/ejemplo.fasta")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.