From d986a8b00bb95eddc23e30dd28249941ee8bf5ed Mon Sep 17 00:00:00 2001
From: Collin Erickson <collinberickson@gmail.com>
Date: Sun, 22 Sep 2019 01:07:33 -0400
Subject: [PATCH] using suppress message

---
 scratch/scratch_hype.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scratch/scratch_hype.R b/scratch/scratch_hype.R
index a582090..9f85b48 100644
--- a/scratch/scratch_hype.R
+++ b/scratch/scratch_hype.R
@@ -80,7 +80,7 @@ hype <- R6::R6Class(
     },
     add_data = function(X, Y) {
       self$ffexp <- updatedffexp
-      updatedffexp <- self$ffexp$add_level("Xdf", X)
+      updatedffexp <- self$ffexp$add_level("Xdf", X, suppressMessage=TRUE)
       stop("need to add Y too")
       invisible(self)
     },
@@ -125,7 +125,7 @@ hype <- R6::R6Class(
                                     upper=self$parupper)
       }
       newX <- EIout$par
-      updatedffexp <- self$ffexp$add_level("Xdf", newX)
+      updatedffexp <- self$ffexp$add_level("Xdf", newX, suppressMessage=TRUE)
       self$ffexp <- updatedffexp
       invisible(self)
     },