guangchuang yu authored on 14/12/2017 10:31:09
Showing1 changed files

... ...
@@ -21,7 +21,7 @@
21 21
 msaplot <- function(p, fasta, offset=0, width=1, color=NULL, window=NULL, bg_line = TRUE, height = 0.8){
22 22
     if (missingArg(fasta)) {
23 23
         x <- NULL
24
-    } else if (is(fasta, "DNAbin")) {
24
+    } else if (is(fasta, "DNAbin") || is(fasta, "AAbin") ) {
25 25
         x <- fasta
26 26
     } else if (is(fasta, "character")) {
27 27
         x <- read.fasta(fasta)