diff --git a/R/test_clustering_thresholds.R b/R/test_clustering_thresholds.R
index 203cbb82ef35727398a61cfc0237111c690ec9ac..5e9710d54da3408312121a805401583d60ba0407 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).")
   }