Fixed "the condition has length > 1" issue

biobakery · Feb 3, 2023 · c6538d7 · c6538d7
1 parent 0be3b07
commit c6538d7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/MTXmodel.R b/R/MTXmodel.R
@@ -409,8 +409,8 @@ MTXmodel <-
         }
 
         # covariate-DNA
-        if (input_dnadata != "none") {
-            if (is.character(input_dnadata)) {
+        if (is.character(input_dnadata)) {
+        	if (input_dnadata != "none") {
                 dnadata <-
                     data.frame(data.table::fread(
                         input_dnadata, header = TRUE, sep = "\t"),
@@ -421,10 +421,10 @@ MTXmodel <-
                                           row.names = 1)
                 }
             } else {
-                dnadata <- input_dnadata
+            	dnadata <- "none"
             }
         } else {
-            dnadata <- "none"
+			dnadata <- input_dnadata
         }
 
         # create an output folder and figures folder if it does not exist