[chronojump] Added debugParameters function

[Xavier Padullés <xpadulles src gnome org>]

commit 0ec0e37b1bf07fbd6071bd9dce3f3da43f52e3a3
Author: Xavier Padullés <x padulles gmail com>
Date:   Thu Mar 3 18:36:25 2016 +0100

    Added debugParameters function

 encoder/util.R |   54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 54 insertions(+), 0 deletions(-)
---
diff --git a/encoder/util.R b/encoder/util.R
index c2a03f2..14d4aea 100644
--- a/encoder/util.R
+++ b/encoder/util.R
@@ -1110,3 +1110,57 @@ getInertialDiametersPerMs <- function(displacement, diametersPerTick)
   return(diameter)
 }
 
+
+
+#----------- Begin debug file output -------------
+
+debugParameters <- function (outlist, outfile, currentFunction) {
+        write(paste("Parameters of the", currentFunction, "function are:\n"), outfile, append=FALSE)
+        
+        #based on http://stackoverflow.com/a/34996874
+        for (i in 1:length(outlist)) {
+                if ((is.character(outlist[[i]]) || is.numeric(outlist[[i]])) &
+                    !is.data.frame(outlist[[i]]) &
+                    !is.matrix(outlist[[i]])) {
+                        write(paste("---------", names(outlist)[i], ":", "---------", sep = ""), outfile, 
append=TRUE) 
+                        write(paste(outlist[[i]],collapse = " "), outfile, append=TRUE)
+                }
+                if (is.data.frame(outlist[[i]])) {
+                        write(paste("---------", names(outlist)[i], ":", "---------", sep =""), outfile, 
append=TRUE)
+                        write.table(outlist[[i]], outfile, append=TRUE, quote=FALSE, sep="\t", col.names = 
TRUE)
+                }
+                else if (is.POSIXlt(outlist[[i]])) {
+                        write(paste("---------",names(outlist)[i], ":", "---------", sep =""), outfile, 
append=TRUE)
+                        write(as.character(outlist[[i]]), outfile, append=TRUE)
+                }
+                else if  (is.list(outlist[[i]])) {
+                        write(paste("---------",names(outlist)[i], ":", "---------", sep =""), outfile, 
append=TRUE)
+                        write_list(outlist = outlist[[i]], outfile, append = TRUE)
+                }
+                else if (is.matrix(outlist[[i]])) {
+                        write(paste("---------", names(outlist)[i], ":", "---------", sep =""), outfile, 
append=TRUE) 
+                        write.table(outlist[[i]], outfile, append=TRUE, quote=FALSE, col.names = TRUE)
+                }
+        }
+}
+
+is.POSIXlt <- function (ts) {
+        isPOS=c("POSIXlt", "POSIXt")
+        identical (class(ts),isPOS)
+}
+
+test_debugParameters <- function(outfile){
+        numVariable = c(1,2,3,4)
+        charVariable = c("Hello", "how", "are", "you")
+        dataframeVariable = as.data.frame(matrix(c(10,20,40,50), ncol = 2))
+        matrixVariable = matrix(c(100,200,400,500), ncol = 2)
+        testData = list(numVariable = numVariable,
+                        charVariable = charVariable,
+                        dataframeVariable = dataframeVariable,
+                        matrixVariable = matrixVariable)
+        
+        debugParameters(dades, outfile, "testFunction")
+}
+
+
+#----------- End debug file output -------------