fix #159

software/DataAcquisitionFromDevice/packages/CSV2Diagrams/R/script.R

@@ -0,0 +1,48 @@
+library(latticeExtra)
+require(gridExtra)
+require(grid)
+
+# set error messages test to english
+Sys.setenv(LANG = "en")
+
+#' @export
+createDiagram <- function(inputFileName) {
+
+    #load samples
+    samples <- read.delim(inputFileName, , sep=",")
+
+    # date column should be type of date, not string, so parse it
+    png(filename = paste0("results-", format(Sys.time(), "%d_%b_%Y_%H_%M"), ".png"), width = 800, height = 900, bg = "white")
+
+    # create graphs
+
+    samples$Time = as.POSIXct(samples$Time, format="%Y-%m-%d %H:%M:%S.%OS")
+
+    # create graphs
+    plotValueVsTime <- xyplot(Counter ~ Time,
+                    data = samples,
+                    type = "l",
+                    grid = TRUE,
+                    col.line = "black",
+                    ylab = "counts per minute",
+            ylim=c(min(samples$Counter), max(samples$Counter)),
+
+                    xlim=c(min(samples$Time), max(samples$Time)),
+                    main = "Change over time")
+
+    plotHistogram <- histogram(samples$Counter,
+                               color = "white",
+                               col = "grey",
+                               xlab = "counts",
+                               ylab = "percentage",
+                               main = "Histogram")
+
+    # show graphs
+    grid.arrange(plotValueVsTime, plotHistogram, nrow = 2)
+
+    # add timestamp
+    trellis.focus("toplevel")
+    pictureCreationTimestamp <- as.POSIXlt(Sys.time())
+    panel.text(0.85, 0.03, pictureCreationTimestamp, cex = 1.2, font = 2)
+    trellis.unfocus()
+}