diff --git a/R/meshclustR.R b/R/meshclustR.R index bc6a6b878c3a70e8e47b617104690afd4d30bfad..7d0fa92e155db05a5b707e5af8da7712a954afc0 100644 --- a/R/meshclustR.R +++ b/R/meshclustR.R @@ -17,6 +17,7 @@ #' Numeric values will be used as clustering thresholds for meshclust to override #' the automatically set threshold. If FALSE, meshclust will determine the #' threshold (recommended). +#' @param ... pass on any additional strings to the meshclust commandline tool. #' @return A data frame with information regarding the clustering analysis. #' #' @examples @@ -28,7 +29,8 @@ meshclustR <- function(seqs = MyDNAStringSet, meshclust_bin = meshclust, filepath = path, - threshold = FALSE){ + threshold = FALSE, + ...){ #create temporary file path temp_file <- file.path(filepath, 'cluster_me.fa') @@ -42,10 +44,12 @@ meshclustR <- function(seqs = MyDNAStringSet, if(is.numeric(threshold) && 0 < threshold && threshold <= 0.99){ system2(meshclust, args = c("-d", temp_file, "-o", out_file, - "-t", threshold)) + "-t", threshold, + ...)) }else{ system2(meshclust, args = c("-d", temp_file, - "-o", out_file)) + "-o", out_file, + ...)) } #read output file and parse diff --git a/man/meshclustR.Rd b/man/meshclustR.Rd index ab6de91f6ab2de587c45b52e7c662477b396b1f9..eefe53bca75990f693cd275dc70d70a77f9ed662 100644 --- a/man/meshclustR.Rd +++ b/man/meshclustR.Rd @@ -8,7 +8,8 @@ meshclustR( seqs = MyDNAStringSet, meshclust_bin = meshclust, filepath = path, - threshold = FALSE + threshold = FALSE, + ... ) } \arguments{ @@ -24,6 +25,8 @@ files will be saved.} Numeric values will be used as clustering thresholds for meshclust to override the automatically set threshold. If FALSE, meshclust will determine the threshold (recommended).} + +\item{...}{pass on any additional strings to the meshclust commandline tool.} } \value{ A data frame with information regarding the clustering analysis.