functions to print content of package environment for debugging purpose

Author: gdurif

R-pkg/R/04_environment.R

@@ -87,7 +87,6 @@ init_diyabcrf_env <- function() {
     assign("ap", tmp, env)
 }
 
-
 #' Initialize environment for data generation pipeline
 #' @keywords internal
 #' @author Ghislain Durif
@@ -118,6 +117,45 @@ init_datagen_env <- function() {
     assign("dp", tmp, env)
 }
 
+#' Print content of diyabc-rf project sub-environment for debugging purpose
+#' @keywords internal
+#' @author Ghislain Durif
+debug_ap <- function() {
+    pprint(reactiveValuesToList(env$ap))
+}
+
+#' Print content of metadata inside diyabc-rf project sub-environment 
+#' for debugging purpose
+#' @keywords internal
+#' @author Ghislain Durif
+debug_ap_metadata <- function() {
+    pprint(reactiveValuesToList(env$ap$metadata))
+}
+
+#' Print content of training set simulation setup inside diyabc-rf project 
+#' sub-environment for debugging purpose
+#' @keywords internal
+#' @author Ghislain Durif
+debug_ap_ts <- function() {
+    pprint(reactiveValuesToList(env$ap$ts))
+}
+
+#' Print content of random forest setup inside diyabc-rf project 
+#' sub-environment for debugging purpose
+#' @keywords internal
+#' @author Ghislain Durif
+debug_ap_rf <- function() {
+    pprint(reactiveValuesToList(env$ap$rf))
+}
+
+#' Print content of data generation project sub-environment for debugging 
+#' purpose
+#' @keywords internal
+#' @author Ghislain Durif
+debug_dp <- function() {
+    pprint(reactiveValuesToList(env$dp))
+}
+
 
 #' Get value from named list in diyabc local environment
 #' @keywords internal