SNPediaR.R
In SNPediaR: Query data from SNPedia

## ----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 ()