Added cores option to diamond_protein_to_protein_best_hits() and diamond_protein_to_protein_best_reciprocal_hit()

Author: LotharukpongJS

R/diamond_protein_to_protein_best_hits.R

@@ -104,6 +104,7 @@ diamond_protein_to_protein_best_hits <- function(
     out_format = out_format,
     evalue  = evalue,
     max_target_seqs = max_target_seqs,
+    cores = cores,
     hard_mask = hard_mask,
     diamond_exec_path = diamond_exec_path,
     add_makedb_options = add_makedb_options,
@@ -113,4 +114,4 @@ diamond_protein_to_protein_best_hits <- function(
   query_id <- '.' <- NULL
   hit_tbl <- dplyr::do(dplyr::group_by(hit_tbl, query_id), filter_best_hits(.))
   return(hit_tbl)
-}
+}

R/diamond_protein_to_protein_best_reciprocal_hit.R

@@ -104,6 +104,7 @@ diamond_protein_to_protein_best_reciprocal_hits <- function(
     out_format = out_format,
     evalue  = evalue,
     max_target_seqs = max_target_seqs,
+    cores = cores,
     hard_mask = hard_mask,
     diamond_exec_path = diamond_exec_path,
     add_makedb_options = add_makedb_options,
@@ -119,6 +120,7 @@ diamond_protein_to_protein_best_reciprocal_hits <- function(
     out_format = out_format,
     evalue  = evalue,
     max_target_seqs = max_target_seqs,
+    cores = cores,
     hard_mask = hard_mask,
     diamond_exec_path = diamond_exec_path,
     add_makedb_options = add_makedb_options,
@@ -144,4 +146,4 @@ diamond_protein_to_protein_best_reciprocal_hits <- function(
       " could not be joined properly to select only the reciprocal best hits."
     )
   })
-}
+}