typo fix 2 in split_fasta

missuse · Aug 10, 2020 · 98eeb84 · 98eeb84
1 parent 16f0a84
commit 98eeb84
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/split_fasta.R b/R/split_fasta.R
@@ -115,10 +115,10 @@ split_fasta <- function (path_in,
   }
   temp_file <- seqinr::read.fasta(file = path_in, seqtype = "AA")
   name <- names(temp_file)
-  if(length(names) != length(unique(names))){
+  if(length(name) != length(unique(name))){
     stop("There are duplicated sequence names. Please change them so all are unique")
   }
-  if(!all(names == make.names(names))){
+  if(!all(name == make.names(name))){
     warning("Sequence names contain special characters, this can cause problems in downstream functions.")
   }
   if (!missing(trunc)) {