From 424c77db59ab4004e1493b2973bd4ecf5c3a7c0e Mon Sep 17 00:00:00 2001
From: Benoit THIEURMEL <XT6533@engie.com>
Date: Mon, 1 Jul 2024 17:10:09 +0200
Subject: [PATCH] FIX : rare multiple values in deparse

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

diff --git a/R/FunctionReporter.R b/R/FunctionReporter.R
index 2d95dcd..6b0186a 100644
--- a/R/FunctionReporter.R
+++ b/R/FunctionReporter.R
@@ -420,7 +420,7 @@ FunctionReporter <- R6::R6Class(
         
         # If do.call and first argument is string (atomic), covert to call
         if (length(x) >= 2){
-            if (deparse(x[[1]]) == "do.call" & is.character(x[[2]])){
+            if (deparse(x[[1]])[1] == "do.call" & is.character(x[[2]])){
                 x[[2]] <- parse(text=x[[2]])
             }
         }