R/allOrients.R

In marcgarel/fabarg: fabarg Package

#' allOrients
#'Fonction pour mettre primers en Fwd, rev, et Revcomplement : toutes les orientations possibles
#' @param primer a character
#'
#' @return a vector
#' @export
#'
#' @examples
allOrients <- function(primer)
{
  #require(Biostrings)
  dna <- Biostrings::DNAString(primer)  # The Biostrings works w/ DNAString objects rather than character vectors
  orients <- c(Forward = dna, Reverse = reverse(dna), RevComp = reverseComplement(dna))
  return(sapply(orients, toString))  # Convert back to character vector
}