| ... | ... |
@@ -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) |
