add var suppress message

CollinErickson · Sep 21, 2019 · b0fd00d · b0fd00d
1 parent 58bb9ea
commit b0fd00d
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/ffexp.R b/R/ffexp.R
@@ -630,7 +630,8 @@ ffexp <- R6::R6Class(
       rownames(rowsdf) <- rows
       rowsdf
     },
-    add_variable = function(name, existing_value, new_values) {
+    add_variable = function(name, existing_value, new_values,
+                            suppressMessage=FALSE) {
       # Need to update outlist, completed_runs, number_runs,
       # arglist, nvars, rungrid, outcleandf, outrawdf
       if (name %in% names(self$arglist)) {
@@ -680,7 +681,9 @@ ffexp <- R6::R6Class(
         new_exp$completed_runs[new_index] <- self$completed_runs[old_index]
         new_exp$outlist[[new_index]] <- self$outlist[[old_index]]
       }
-      message("Returning new object with added variable")
+      if (!suppressMessage) {
+        message("Returning new object with added variable")
+      }
       return(new_exp)
     },
     add_level = function(arg_name, new_values, suppressMessage=FALSE) {