## Not run:
# medical_table <- read.delim("medical.txt", fileEncoding="latin1", stringsAsFactors = FALSE)
# drug_table <- read.delim("product.txt", fileEncoding="latin1", stringsAsFactors = FALSE)
# def2 <- import_definition_lists(system.file("extdata", "example_search.csv",
# package = "rpcdsearch"))
# draft_lists <- definition_search(def2, medical_table, drug_table = drug_table)
# out_file <- "def_searches.xlsx"
# export_definition_search(draft_lists, out_file)
# ## End(Not run)
Run the code above in your browser using DataLab