Add new method md5 for use in jstat methods

DESCRIPTION

@@ -38,3 +38,4 @@ Collate:
     'jstat.character.R'
     'jstat.labeled_numeric.R'
     'jstat.numeric.R'
+    'md5.R'

R/jstat.character.R

@@ -6,7 +6,7 @@ jstat.character <- function(variable, time=NULL)
 {
   main <- function() {
     l <- list(table = .table(variable$data_table$valid, time),
-              md5   = .md5(variable$data_table$valid))
+              md5   = md5(variable$data_table$valid))
     l
   }
 
@@ -22,10 +22,6 @@ jstat.character <- function(variable, time=NULL)
     x
   }
 
-  .md5 <- function(valid) {
-    digest(paste(valid, collapse = ''), serialize = FALSE)
-  }
-
   main()
 }
 

R/jstat.labeled_numeric.R

@@ -6,7 +6,7 @@ jstat.labeled_numeric <- function(variable, time=NULL)
 {
   main <- function() {
     l <- list(table = .table(variable$data_table$valid, time),
-              md5   = .md5(variable$data_table$valid))
+              md5   = md5(variable$data_table$valid))
     l
   }
 
@@ -22,10 +22,6 @@ jstat.labeled_numeric <- function(variable, time=NULL)
     x
   }
 
-  .md5 <- function(valid) {
-    digest(paste(valid, collapse = ''), serialize = FALSE)
-  }
-
   main()
 }
 

R/jstat.numeric.R

@@ -6,7 +6,7 @@ jstat.numeric <- function(variable, time=NULL)
 {
   main <- function() {
     l <- list(densit = .density(variable$data_table$valid),
-              md5   = .md5(variable$data_table$valid))
+              md5   = md5(variable$data_table$valid))
     l
   }
 
@@ -18,10 +18,6 @@ jstat.numeric <- function(variable, time=NULL)
     d
   }
 
-  .md5 <- function(valid) {
-    digest(paste(valid, collapse = ''), serialize = FALSE)
-  }
-
   main()
 }
 

R/md5.R

@@ -0,0 +1,12 @@
+#' Hash function for internal use
+#'
+#' @param valid
+#' @param id
+md5 <- function(valid, id = NULL)
+{
+  if(is.null(id))
+    id <- 1:length(valid)
+  valid <- valid[order(id)]
+  digest(paste(valid, collapse = ''), serialize = FALSE)
+}
+