diff options
| author | TinWoodman92 <chrhodgden@gmail.com> | 2023-06-26 17:14:41 -0500 |
|---|---|---|
| committer | TinWoodman92 <chrhodgden@gmail.com> | 2023-06-26 17:14:41 -0500 |
| commit | 18a0fcd67b61c6beadd14ef1e57c3e05a35b7270 (patch) | |
| tree | ecb5835c6499c84d272b967c699d17589a90121e /dialoguer/context_script.r | |
| parent | c0c32a7d2b9d0740521fed51dceff79b68d68f0a (diff) | |
added evaluate_expression handling with argss
Diffstat (limited to 'dialoguer/context_script.r')
| -rw-r--r-- | dialoguer/context_script.r | 14 |
1 files changed, 13 insertions, 1 deletions
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() |