## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(cprd.search)
file <- system.file("extdata", "synthetic-dictionary.tsv", package = "cprd.search")
dictionary <- load_cprd_dictionary(file)
names(dictionary)

## -----------------------------------------------------------------------------
cprd_search("family history", "lung cancer")
cprd_search_or("diabetes", "asthma", min_obs = 20)
review <- cprd_search_exclude("diabetes", exclude = "gestational")
review[, c("MedCodeId", "Term")]

## -----------------------------------------------------------------------------
cprd_search("H33..", column = "CleansedReadCode")
cprd_search("^asthma$", regex = TRUE)

## -----------------------------------------------------------------------------
cprd_search_fuzzy("diabeties", select = c("MedCodeId", "Term", "dist"))
cprd_search_fuzzy("xiabetes", max_dist = 1)

## -----------------------------------------------------------------------------
asthma <- cprd_search("asthma", select = c("MedCodeId", "Term"))
diabetes <- cprd_search("diabetes", select = c("MedCodeId", "Term"))
codes <- cprd_combine(asthma, diabetes, diabetes)
codes

## -----------------------------------------------------------------------------
output <- tempfile(fileext = ".csv")
cprd_export(codes, output)
restored <- utils::read.csv(output, colClasses = "character")
stopifnot(identical(restored$MedCodeId, codes$MedCodeId))
restored
unlink(output)