From da36c82f026b23b5148eb70b90696b2a93a4349d Mon Sep 17 00:00:00 2001
From: Jeremy Raw <jeremy@jeremyraw.com>
Date: Tue, 11 Apr 2023 13:19:35 -0400
Subject: [PATCH] Removed some lingering debugging statements

---
 sources/framework/VEModel/R/environment.R       | 2 +-
 sources/framework/visioneval/R/initialization.R | 2 --
 sources/framework/visioneval/R/module.R         | 2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/sources/framework/VEModel/R/environment.R b/sources/framework/VEModel/R/environment.R
index 8c7d2b25..01ac2ee6 100644
--- a/sources/framework/VEModel/R/environment.R
+++ b/sources/framework/VEModel/R/environment.R
@@ -482,7 +482,7 @@ initLog <- visioneval::initLog
 uniqueSources <- function(Param_ls,shorten=NULL) {
   sources <- sapply(Param_ls,function(p) attr(p,"source"))
   if ( is.null(sources) ) {
-    writeLog("'sources' attribute is null in uniqueSources",.traceback(1),Level="info")
+    writeLog(c("'sources' attribute is null in uniqueSources",.traceback(1)),Level="info")
     sources <- "NULL"
   } else {
     sources <- unique(sources)
diff --git a/sources/framework/visioneval/R/initialization.R b/sources/framework/visioneval/R/initialization.R
index cc2933e5..3f0f251a 100644
--- a/sources/framework/visioneval/R/initialization.R
+++ b/sources/framework/visioneval/R/initialization.R
@@ -428,8 +428,6 @@ getModelState <- function(envir=NULL,stopOnError=TRUE,...) {
   if ( is.null(envir) ) envir <- modelEnvironment()
   if ( ! "ModelState_ls" %in% ls(envir=envir) ) {
     if ( stopOnError ){
-      traceback(1)
-      browser()
       stop("getModelState: ModelState is not initialized.")
     }
   }
diff --git a/sources/framework/visioneval/R/module.R b/sources/framework/visioneval/R/module.R
index 56e0f244..a3082ae9 100644
--- a/sources/framework/visioneval/R/module.R
+++ b/sources/framework/visioneval/R/module.R
@@ -383,7 +383,7 @@ savePackageDataset <- function(dataset,overwrite=TRUE,keep=FALSE,compress="xz")
     if ( overwrite ) {
       cat("Saving '",dsname,"' to '",file,"' ... ",sep="")
       save(list=dsname,file=file,compress=compress,envir=parent.frame())
-      if ( ! file.exists(file) ) { traceback(); stop("File NOT saved!\n") } else cat("Saved\n")
+      if ( ! file.exists(file) ) { stop("File NOT saved!\n") } else cat("Saved\n")
     }
   } else if (build.phase == "BUILD" ) {
     # During the BUILD phase, we won't keep the dataset unless explicitly requested. Some modules