diff hshhlp.R @ 0:e66bb061af06 draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 3529b25417f8e1a5836474c9adec4b696d35099d-dirty

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hshhlp.R	Tue Jul 12 12:02:37 2016 -0400
@@ -0,0 +1,20 @@
+# Function for testing if a key exists inside a list/hashmap
+hHasKey <- function(h, k) {
+	return(length(which(names(h) == k)) > 0)
+}
+
+# Function for getting a boolean value from a list/hashmap
+hGetBool <- function(h, k) {
+	if (hHasKey(h, k)) return(h[[k]]) else return(FALSE)
+}
+
+# keys      A list of keys.
+# values    A list of values.
+# RETURN    A hash using keys as keys and values as values.
+hCreate <- function(keys, values) {
+	h <- list()
+	sz <- min(length(keys), length(values))
+	for(i in 1:sz)
+		h[ keys[[i]] ] <- values[i]
+	return(h)
+}