# NOT RUN {
ages <- Dict$new(c(Peter=24, Lisa=23, Bob=32))
ages$has("Peter") # TRUE
ages$peek("Lisa") # 23
ages$peek("Mike") # NULL
ages$add("Mike", 18)
ages$peek("Mike") # 18
ages$keys()
print(ages)
# }
# NOT RUN {
Dict$new(list(Peter=20))$add("Peter", 22) # key already in Dict
Dict$new(c(Peter=24, Lisa=23, Bob=32, Peter=20)) # Error: duplicated keys
# }
Run the code above in your browser using DataLab