R/read_fasta.R

read_fasta <- function(file_fasta) {

  lines <- readLines(file_fasta)
  which(grepl(">", lines))
}

sec <- read_fasta("inst/datos/ejemplo.fasta")
rsimon64/bioinfodem documentation built on May 9, 2019, 8:18 a.m.