From 55b3362c5867eba13a1c0edb318023fffee582c3 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Fri, 13 May 2022 11:22:18 +0200
Subject: [PATCH] Fixed minor check notes

---
 R/load_fasta.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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