when data is splitted and the user works in the OperationModule now n…

…ew columns are added to backup_df

bs/R/OperationsModule.R

@@ -494,6 +494,16 @@ OperationEditorServer <- function(id, data) {
         new <- eval(parse(text = code), envir = eval_env)
         check_type_res(new)
         r_vals$df[, new_col] <- new
+
+        if (!is.null(data$backup_df)) {
+          eval_env <- new.env()
+          list2env(r_vals$intermediate_vars, envir = eval_env)
+          list2env(data$backup_df, envir = eval_env)  # NOTE: this adds each column as own variable
+          new <- eval(parse(text = code), envir = eval_env)
+          check_type_res(new)
+          data$backup_df[, new_col] <- new
+          showNotification("Conducted operation also for entire dataset and not only the subset")
+        }
       })
       if (inherits(e, "try-error")) {
         err <- conditionMessage(attr(e, "condition"))

bs/R/assumption.R

@@ -126,7 +126,6 @@ assServer <- function(id, data, listResults) {
       data$filter_group <- NULL
     })
 
-
     output$open_formula_editor_corr <- renderUI({ # TODO: change to unique identifier probably via [["open_formula_editor"]]
       actionButton(NS(id, "open_formula_editor"),
         "Open formula editor",