Merge pull request #180 from CSAFE-ISU/175-error-in-cluster-assignments

Added a few comments
CSAFE-ISU · Aug 10, 2024 · 564ff2a · 564ff2a
2 parents 7afb24e + d0ef879
commit 564ff2a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/cluster_assignment.R b/R/cluster_assignment.R
@@ -481,11 +481,11 @@ get_clusterassignment <- function(main_dir, input_type, writer_indices, doc_indi
 
   # list files in input dir
   proclist <- list.files(input_dir, pattern = '.rds', full.names = TRUE)
-
 
+  # get cluster assignments  
   proclist <- get_clusters_batch(template, input_dir, output_dir, writer_indices, doc_indices, num_cores)
 
-  # save clusters
+  # save clusters in output dir
   if (input_type == "model") {
     saveRDS(proclist, file.path(main_dir, "data", "model_clusters.rds"))
   } else {