id <- "ENSG00000000003"
## Define 'hpadata' data manually
getHpa(id, hpadata = "Subcell")
head(getHpa(id, hpadata = "NormalTissue"), )
head(getHpa(id, hpadata = "Rna"))
## Default 'hpadata' data
head(getHpa(id)) ## default 'hpadata' is "NormalTissue"
## Sets default to "SubcellularLoc"
setHparOptions(hpadata = "SubcellularLoc")
getHpa(id) ## now uses "SubcellularLoc"
setHparOptions() ## reset to "NormalTissue"
head(getHpa(id))
## multiple ids
getHpa(id = c("ENSG00000000003", "ENSG00000000005"),
hpadata = "SubcellularLoc")
## opens a browser with http://www.proteinatlas.org/ENSG00000163435
getHpa("ENSG00000163435",
type = "details")
Run the code above in your browser using DataLab