From 18a0fcd67b61c6beadd14ef1e57c3e05a35b7270 Mon Sep 17 00:00:00 2001
From: TinWoodman92 <chrhodgden@gmail.com>
Date: Mon, 26 Jun 2023 17:14:41 -0500
Subject: added evaluate_expression handling with argss

---
 dialoguer/context_script.r | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'dialoguer/context_script.r')

diff --git a/dialoguer/context_script.r b/dialoguer/context_script.r
index 1d59dd8..8629f2a 100644
--- a/dialoguer/context_script.r
+++ b/dialoguer/context_script.r
@@ -123,7 +123,19 @@ import_variable <- function() {
 }
 
 evaluate_expression <- function () {
-
+	arg_count <- recv(con, FALSE, "integer")
+	send(con, TRUE)
+	method_name <- recv(con, FALSE, "character")
+	send(con, TRUE)
+	args <- list()
+	if (arg_count > 0) {
+		for (i in 1:arg_count) {
+		args <- c(args, recv(con, TRUE))
+		send(con, TRUE)
+		}
+	}
+	result <- do.call(method_name, args)
+	send(con, result, TRUE)
 }
 
 con <- find_connection()
-- 
cgit v1.2.3