Fix for length 0 vectors

jeroen · Mar 3, 2016 · 7163157 · 7163157
1 parent 87c0a3d
commit 7163157
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/R/V8.R b/R/V8.R
@@ -114,10 +114,7 @@ v8 <- function(global = "global", console = TRUE, typed_arrays = TRUE) {
   # Public methods
   this <- local({
     eval <- function(src){
-      if(length(src) > 1){
-        src <- join(src)
-      }
-      get_str_output(context_eval(src, private$context));
+      get_str_output(context_eval(join(src), private$context));
     }
     validate <- function(src){
       context_validate(join(src), private$context)