Error with future package integration

[lict99]

I'd like to express my appreciation for the CellChat package, which has been instrumental in facilitating inference, visualization, and analysis of cell-cell communication from single-cell and spatially resolved transcriptomics.

However, I encountered an issue when using the future package to accelerate computing. Specifically, setting the plan to "multisession" without specifying the number of workers results in an error message: Error in rep(no, length.out = len) : attempt to replicate an object of type 'closure'.

Upon further investigation and debugging, I found that the issue stems from the following statement in your package:

my.sapply <- ifelse(
  test = future::nbrOfWorkers() == 1,
  yes = sapply,
  no = future.apply::future_sapply
)

This statement uses ifelse() to determine which function to use based on the number of workers. However, as you noted, this approach may not be suitable due to the vectorized nature of ifelse(). To resolve this issue, I suggest replacing it with a simple conditional assignment:

my.sapply <- if (future::nbrOfWorkers() == 1) sapply else future.apply::future_sapply

This change should prevent the error from occurring when using "multisession" mode without specifying the number of workers.

If you're short on time, I'd be happy to create a pull request with this fix. Otherwise, thank you for your attention to this matter.

[sqjin]

@lict99 Thanks. Your suggestion looks good. I will update it. @suye0620 Can you let me know your thoughts on this issue?