Skip to content
Snippets Groups Projects
Commit 5738f3a8 authored by Simeon's avatar Simeon
Browse files

Update test_clustering_thresholds.R

parent e1761832
Branches
No related tags found
No related merge requests found
......@@ -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).")
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment