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

add vararg to threshold testing

parent 8fe235b1
Branches main
No related tags found
No related merge requests found
......@@ -12,6 +12,7 @@
#' running `which meshclust`, see also \code{\link{meshclustR}}.
#' @param meshclust_temp_dir temporary directory for meshclust files.
#' Temporary files will be removed after running the function.
#' @param ... pass on any additional strings to the meshclust commandline tool.
#'
#' @return A list of clustering results, where each element in the list corresponds to a specific threshold value.
#'
......@@ -29,7 +30,7 @@
test_clustering_thresholds <- function(MyDNAstring, step_size,
step_max = 0.99, ncores = 1,
method = "Clusterize",
meshclust_temp_dir = "tmp") {
meshclust_temp_dir = "tmp", ...) {
if(method == "Clusterize"){
#DECIPHER removed the 'type' argument from IdClusters around v2.24. Currently (Feb23), the function is renamed "Clusterize"
......@@ -56,7 +57,7 @@ test_clustering_thresholds <- function(MyDNAstring, step_size,
clus_tbl_list <- lapply(seq(0, step_max, step_size),
meshclustR, seqs = MyDNAstring,
filepath = meshclust_temp_dir,
meshclust_bin = method)
meshclust_bin = method, ...)
if(!preexisting){
unlink(meshclust_temp_dir)
}
......
......@@ -10,7 +10,8 @@ test_clustering_thresholds(
step_max = 0.99,
ncores = 1,
method = "Clusterize",
meshclust_temp_dir = "tmp"
meshclust_temp_dir = "tmp",
...
)
}
\arguments{
......@@ -28,6 +29,8 @@ running `which meshclust`, see also \code{\link{meshclustR}}.}
\item{meshclust_temp_dir}{temporary directory for meshclust files.
Temporary files will be removed after running the function.}
\item{...}{pass on any additional strings to the meshclust commandline tool.}
}
\value{
A list of clustering results, where each element in the list corresponds to a specific threshold value.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment