Correct code to run COSG

code/run-cosg.R

@@ -25,20 +25,21 @@ run_cosg <- function(sce, pars) {
     )
   })
 
-  result <- dplyr::left_join(
+  result <- dplyr::bind_cols(
     tidyr::pivot_longer(
       raw_result$names,
       cols = everything(),
       names_to = "cluster",
       values_to = "gene"
     ),
+    dplyr::select(
       tidyr::pivot_longer(
         raw_result$scores,
         cols = everything(),
         names_to = "cluster",
         values_to = "raw_statistic"
       ),
-    by = "cluster"
+      -cluster)
   )
 
   # See note in `run-nsForest.R`