added check for type of result in data wrangling tab

bs/R/OperationsModule.R

@@ -415,12 +415,14 @@ OperationEditorServer <- function(id, data) {
         list2env(r_vals$intermediate_vars, envir = eval_env)
         list2env(r_vals$df, envir = eval_env) # NOTE: this adds each column as own variable
         new <- eval(parse(text = code), envir = eval_env)
+        check_type_res(new)
       })
       if (inherits(e, "try-error")) {
         err <- conditionMessage(attr(e, "condition"))
         showNotification(err, type = "error")
+      } else {
+        r_vals$intermediate_vars[[var_name]] <- new
       }
-      r_vals$intermediate_vars[[var_name]] <- new
     })
 
     # Run operation and append to df
@@ -453,6 +455,7 @@ OperationEditorServer <- function(id, data) {
         list2env(r_vals$intermediate_vars, envir = eval_env)
         list2env(r_vals$df, envir = eval_env)  # NOTE: this adds each column as own variable
         new <- eval(parse(text = code), envir = eval_env)
+        check_type_res(new)
         r_vals$df[, new_col] <- new
       })
       if (inherits(e, "try-error")) {

bs/R/utils.R

@@ -331,3 +331,11 @@ check_axis_limits <- function(col, min, max) {
     return()
   }
 }
+
+# check that result is only of allowed type
+check_type_res <- function(res) {
+  allowed <- c("numeric", "integer", "logical", "data.frame")
+  if (!(class(res) %in% allowed)) {
+    stop(paste0("Found result with unallowed type: ", class(res)))
+  }
+}