# Load the built-in dictionary
dic1 <- read_dictionary()
# Make a dictionary from some translations of "Enki and the World Order"
path <- system.file("extdata", "project/lines", package = "sumer")
dic2 <- make_dictionary(list.files(path, full.names=TRUE)[1:10])
# Merge both dictionaries
dic <- merge_dictionaries(dic1, dic2)
#Test the function
look_up("IL2", dic1)
look_up("IL2", dic2)
look_up("IL2", dic)
Run the code above in your browser using DataLab