From 5738f3a8e58f6bc51fee0b5dc0f59c91ad670075 Mon Sep 17 00:00:00 2001
From: Simeon <51403284+simeross@users.noreply.github.com>
Date: Wed, 24 Jan 2024 13:00:27 +0100
Subject: [PATCH] Update test_clustering_thresholds.R
---
R/test_clustering_thresholds.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/test_clustering_thresholds.R b/R/test_clustering_thresholds.R
index 203cbb8..5e9710d 100644
--- a/R/test_clustering_thresholds.R
+++ b/R/test_clustering_thresholds.R
@@ -50,7 +50,7 @@ test_clustering_thresholds <- function(MyDNAstring, step_size,
group_by(cutoff) %>%
group_split(.keep = FALSE)
- }else if(dir.exists(method)){
+ }else if(file.exists(method)){
preexisting <- dir.exists(meshclust_temp_dir)
dir.create(meshclust_temp_dir)
clust_tbl_list <- lapply(seq(0, step_max, step_size),
@@ -61,7 +61,7 @@ test_clustering_thresholds <- function(MyDNAstring, step_size,
unlink(meshclust_temp_dir)
}
}else{
- stop("'method' argument needs to be 'Clusterize' or the file path to the meshclust bin ('which meshclust' in shell).")
+ stop("'method' argument needs to be 'Clusterize' or the absolute file path to the meshclust bin ('which meshclust' in shell).")
}
--
GitLab