From 0ab6cd7bd491dab6b5530a28c011bebd0492973e Mon Sep 17 00:00:00 2001
From: aho <an.ho@bsc.es>
Date: Thu, 23 Mar 2023 15:25:02 +0100
Subject: [PATCH] Keep the list item when it is NULL after eval.parent()

---
 R/Start.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/R/Start.R b/R/Start.R
index c5a0a4c..54ebdb8 100644
--- a/R/Start.R
+++ b/R/Start.R
@@ -4185,7 +4185,12 @@ Start <- function(..., # dim = indices/selectors,
     start_call <- match.call()
     for (i in 2:length(start_call)) {
       if (class(start_call[[i]]) %in% c('name', 'call')) {
-        start_call[[i]] <- eval.parent(start_call[[i]])
+        tmp <- eval.parent(start_call[[i]])
+        if (is.null(tmp)) {
+          start_call[i] <- list(NULL)
+        } else {
+          start_call[[i]] <- eval.parent(start_call[[i]])
+        }
       }
     }
     start_call[['retrieve']] <- TRUE
-- 
GitLab