added experimental plot method to lbj_logger

data-cleaning · Oct 12, 2018 · 521e812 · 521e812
1 parent b0835c1
commit 521e812
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/pkg/NEWS b/pkg/NEWS
@@ -1,3 +1,6 @@
+version 0.2.7
+- lbj_logger object now has an (experimental) $plot() method.
+
 version 0.2.6
 - New methods 'all' and 'any' for 'validation' objects
 - New 'plot' method for 'validator' objects.

diff --git a/pkg/R/lumberjack.R b/pkg/R/lumberjack.R
@@ -158,6 +158,16 @@ lbj_rules <- setRefClass("lbj_rules",
       cat("Logging object of class lbj_rules with the following logging info\n")
       print(.self$log_data())
     }
+    , plot = function(){
+      "plot rule comparisons"
+       pl <- getMethod("plot","validatorComparison")
+       log <- .self$log_data()
+       cmp <- t(log[-(1:3)])
+       class(cmp) <- c("validatorComparison", "array")
+       x <- gsub("\\(.*","",log$expression)
+       colnames(cmp) <- x
+       pl(cmp)
+    }
     , fmsg = function(fmt,...){
       if (.self$verbose){
         message(sprintf(fmt,...))