## ----style, echo = FALSE, results = 'asis'-------------------------------
BiocStyle::markdown()

## ------------------------------------------------------------------------
library (SNPediaR)
pg <- getPages (titles = "Rs53576")
pg

## ------------------------------------------------------------------------
pgs <- getPages (titles = c ("Rs53576(A;A)", "Rs53576(A;G)", "Rs53576(G;G)"))
pgs

## ------------------------------------------------------------------------
extractSnpTags (pg$Rs53576)

## ------------------------------------------------------------------------
sapply (pgs, extractGenotypeTags)

## ------------------------------------------------------------------------
getPages (titles = c ("Rs53576(A;A)", "Rs53576(A;G)", "Rs53576(G;G)"),
          wikiParseFunction = extractGenotypeTags,
          tags = c ("allele1", "allele2", "magnitude"))

## ------------------------------------------------------------------------
findPMID <- function (x) {
    x <- unlist (strsplit (x, split = "\n"))
    x <- grep ("PMID=", x, value = TRUE)
    x
}

## ------------------------------------------------------------------------
getPages (titles = c ("Rs53576", "Rs1815739"),
          wikiParseFunction = findPMID)


## ------------------------------------------------------------------------
res <- getCategoryElements (category = "Is_a_medical_condition")
head (res)

## ------------------------------------------------------------------------
grep ('cancer', res, value = TRUE)

## ------------------------------------------------------------------------
sessionInfo ()