# Load the built-in dictionary
dic <- read_dictionary()
# Load a custom dictionary
filename <- system.file("extdata", "sumer-dictionary.txt", package = "sumer")
dic <- read_dictionary(filename)
# Look up an entry
look_up("d-suen", dic)
Run the code above in your browser using DataLab