R Hashmap

hashmap.R

# https://rnotebook.io/anon/ae2ac79d0d10d6f6/notebooks/hashmap.ipynb

library(hash)

 h <- hash()

a <- matrix(1:4, nrow = 12, ncol = 3)
print(a)

# has.key("4",h)

hashPopulator <- function(key) {
#     print("this is the key")
#     print(key)
    index <- a[key, 1]
    if( has.key(toString(key), h ) ) {
#       print('key present')
        h[index] <- rbind(h[[toString(index)]], matrix(a[key,]))
    } else {
#       print('false')
        h[index] <- matrix(a[key,])
    }
}


hashPopulator(a[4,1]);
hashPopulator(a[5,1]);
hashPopulator(a[8,1]);
hashPopulator(a[11,1]);
hashPopulator(a[12,1]);

print(values(h))
# print(h)