view hshhlp.R @ 3:f61ce21ed17c draft

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

# 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)
}