diff options
Diffstat (limited to 'dialoguer/context_script.r')
| -rw-r--r-- | dialoguer/context_script.r | 40 |
1 files changed, 15 insertions, 25 deletions
diff --git a/dialoguer/context_script.r b/dialoguer/context_script.r index 50471ef..f2a795a 100644 --- a/dialoguer/context_script.r +++ b/dialoguer/context_script.r @@ -7,21 +7,21 @@ UUID <- commandArgs(trailingOnly = TRUE)[1] TARGET_FILE <- commandArgs(trailingOnly = TRUE)[2] data_type_vect <- c( - character = 'character', - str = 'character', - integer = 'integer', - int = 'integer', - double = 'double', - float = 'double', - logical = 'logical', - bool = 'logical' + character = "character", + str = "character", + integer = "integer", + int = "integer", + double = "double", + float = "double", + logical = "logical", + bool = "logical" ) display_msg <- function(...) { - cat('\033[94m') + cat("\033[94m") cat( ..., - end = '\033[0m\n' + end = "\033[0m\n" ) } @@ -38,15 +38,12 @@ send <- function(conn, data, send_data_type = FALSE) { # I still want to consolidate the recv_data_type and set_data_type args recv <- function(conn, recv_data_type = FALSE, set_data_type = "character") { if (recv_data_type) { - suppressWarnings(data_type_bin <- readBin(conn, "raw", HEADER)) - while (length(data_type_bin) == 0) { - suppressWarnings(data_type_bin <- readBin(conn, "raw", HEADER)) + suppressWarnings(data_type <- readBin(conn, "raw", HEADER)) + while (length(data_type) == 0) { + suppressWarnings(data_type <- readBin(conn, "raw", HEADER)) } - display_msg('data_type_bin', data_type_bin) - data_type_name <- readBin(data_type_bin, "character") - display_msg('data_type_name', data_type_name, '-') - data_type <- data_type_vect[data_type_name] - display_msg('data_type', data_type) + data_type <- readBin(data_type, "character") + data_type <- data_type_vect[data_type] send(con, TRUE) } else { data_type <- set_data_type @@ -90,24 +87,18 @@ import_variable <- function() { evaluate_expression <- function() { arg_count <- recv(con, FALSE, "integer") - display_msg('arg_count', arg_count) send(con, TRUE) kwarg_count <- recv(con, FALSE, "integer") send(con, TRUE) method_name <- recv(con, FALSE, "character") - display_msg('method_name', method_name) send(con, TRUE) args <- list() - #display_msg('args', args) if (arg_count > 0) { for (i in 1:arg_count) { - #display_msg('args', args) args <- c(args, recv(con, TRUE)) - args[1] send(con, TRUE) } } - #display_msg('args', args) kwargs <- list() if (kwarg_count > 0) { keys <- c() @@ -135,7 +126,6 @@ send(con, TRUE) cmd_int <- -1 while (cmd_int != 0) { cmd_int <- recv(con, FALSE, "integer") - display_msg('cmd_int', cmd_int) if (cmd_int == 1){ send(con, TRUE) import_variable() |