max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Fixed minor check notes

Browse source
This commit is contained in:
Waldir Leoncio 2022-05-13 11:22:18 +02:00
parent 2ac99025b4
commit 55b3362c58
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/load_fasta.R
View file

@ -18,12 +18,12 @@
load_fasta <- function(msa, keep.singletons = FALSE) { load_fasta <- function(msa, keep.singletons = FALSE) {
# Check inputs # Check inputs
if (class(msa) == "character") { if (is(msa, "character")) {
if (!file.exists(msa)) stop("Invalid msa or the file does not exist!") if (!file.exists(msa)) stop("Invalid msa or the file does not exist!")
seqs <- ape::read.FASTA(msa) seqs <- ape::read.FASTA(msa)
} else if (class(msa) == "matrix") { } else if (is(msa, "matrix")) {
seqs <- ape::as.DNAbin(msa) seqs <- ape::as.DNAbin(msa)
} else if (class(msa) == "DNAbin") { } else if (is(msa, "DNAbin")) {
seqs <- msa seqs <- msa
} else { } else {
stop("incorrect input for msa!") stop("incorrect input for msa!")