Removed some lingering debugging statements

VisionEval · Apr 11, 2023 · da36c82 · da36c82
1 parent e54af1b
commit da36c82
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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