From 3726540608fc0be59b53a806bc01905c93c0465c Mon Sep 17 00:00:00 2001
From: Adriano Rutz <adriano.rutz@hotmail.com>
Date: Sat, 22 Jul 2023 17:25:46 +0200
Subject: [PATCH] fix

---
 R/create_edges_parallel.R |  2 +-
 R/create_edges_spectra.R  | 11 ++++++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/R/create_edges_parallel.R b/R/create_edges_parallel.R
index ad4a083ef..b176401ea 100644
--- a/R/create_edges_parallel.R
+++ b/R/create_edges_parallel.R
@@ -26,6 +26,6 @@ create_edges_parallel <- function(index,
     frags = frags,
     precs = precs
   ) |>
-    dplyr::bind_rows()
+    tidytable::bind_rows()
   return(list)
 }
diff --git a/R/create_edges_spectra.R b/R/create_edges_spectra.R
index 60e161c9b..836a24643 100644
--- a/R/create_edges_spectra.R
+++ b/R/create_edges_spectra.R
@@ -94,6 +94,15 @@ create_edges_spectra <- function(
     precz <- spectra$precursorMz
     fragz <- spectra@backend@peaksData
     ## Originally written with future but too slow...TODO investigate
+    ## TODO investigate weird error
+    zzz <- lapply(
+      X = 2:1,
+      FUN = create_edges_progress,
+      query = 1,
+      s1 = cbind(mz = fragz[[1]][, 1], intensity = fragz[[1]][, 2]),
+      frags = fragz,
+      precs = precz
+    )
     edges <- pbmcapply::pbmclapply(
       X = 1:(nspecz - 1),
       mc.cores = parallelly::availableCores(),
@@ -103,7 +112,7 @@ create_edges_spectra <- function(
       precs = precz,
       nspecs = nspecz
     ) |>
-      dplyr::bind_rows()
+      tidytable::bind_rows()
 
     ## old version, keep in case
     # par <- if (parallel) {