From c6538d7130697cf62d651ede597c27124dacc3b6 Mon Sep 17 00:00:00 2001 From: Yancong Zhang Date: Thu, 2 Feb 2023 21:23:55 -0500 Subject: [PATCH] Fixed "the condition has length > 1" issue --- R/MTXmodel.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/MTXmodel.R b/R/MTXmodel.R index 9015b4f..0c7d16c 100755 --- 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