R/chop_sequence.R

In adsteen/genomechop:

##' Chop sequence chops up a single sequence
##'
##' @param seq a single raw sequence
##' @param len length of sequences
##' @param method whether sequence is to be chopped up at random
##' @param n number of sequences
##' @export
##'
chop_sequence <- function(seq_data, len=1000, method="random", n="complete") {
  browser()
  chopped_seqs <- switch(method,
         random = random_chop(seq_data=seq_data, len=len, n="complete"),
         stop(paste0("I don't know about method ", method)))

  chopped_seqs
}