diff options
Diffstat (limited to 'dialoguer/context_script.r')
| -rw-r--r-- | dialoguer/context_script.r | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/dialoguer/context_script.r b/dialoguer/context_script.r index 33aacaa..32a0149 100644 --- a/dialoguer/context_script.r +++ b/dialoguer/context_script.r @@ -86,6 +86,14 @@ import_variable <- function() { send(con, var_val, TRUE) } +assign_variable <- function() { + var_name <- recv(con, FALSE, "character") + send(con, TRUE) + var_val <- recv(con, TRUE) + send(con, TRUE) + assign(var_name, var_val, envir = globalenv()) +} + evaluate_expression <- function() { arg_count <- recv(con, FALSE, "integer") send(con, TRUE) @@ -133,6 +141,9 @@ while (cmd_int != 0) { } else if (cmd_int == 2) { send(con, TRUE) evaluate_expression() + } else if (cmd_int == 3) { + send(con, TRUE) + assign_variable() } } |