From d08f72d3cd81f20a4695eae3dd95fff4032eece8 Mon Sep 17 00:00:00 2001
From: tew42 <2049715+tew42@users.noreply.github.com>
Date: Sat, 23 Jan 2021 22:33:35 +0100
Subject: [PATCH] Update Optimize_params.R

---
 R/Optimize_params.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/Optimize_params.R b/R/Optimize_params.R
index fc756b0..89c6327 100644
--- a/R/Optimize_params.R
+++ b/R/Optimize_params.R
@@ -997,7 +997,7 @@ SlaveCluster_doe <-function(task, Set_parameters, object, object_mslevel,
 calculateSet_doe <- function(object, object_mslevel, Set_parameters, task = 1,
                              BPPARAM = bpparam()) {
   
-  if (length(Set_parameters) < 31){ # deal with the usual processing case
+  if (sum(lengths(Set_parameters)) < 31){ # deal with the usual processing case
     param <- updateRawSpectraParam(Set_parameters)
   } else { # deal with the optimization case, usaully 44 (33 each set)
     param <- updateRawSpectraParam(Set_parameters[[task]])