## ----include=FALSE,results="hide",message=FALSE,warning=FALSE----------------- library(BiocStyle) ## ----eval=FALSE--------------------------------------------------------------- # if (!requireNamespace("BiocManager", quietly = TRUE)) # install.packages("BiocManager") # BiocManager::install("UniProt.ws") ## ----loadPkg------------------------------------------------------------------ suppressPackageStartupMessages({ library(UniProt.ws) }) up <- UniProt.ws(taxId=9606) ## ----help,eval=FALSE---------------------------------------------------------- # help("UniProt.ws") ## ----show--------------------------------------------------------------------- up ## ----availSpecies------------------------------------------------------------- availableUniprotSpecies(pattern="musculus") ## ----setTaxID----------------------------------------------------------------- mouseUp <- UniProt.ws(10090) mouseUp ## ----columns------------------------------------------------------------------ head(keytypes(up)) ## ----keytypes----------------------------------------------------------------- head(columns(up)) ## ----keys,eval=FALSE---------------------------------------------------------- # egs <- keys(up, "GeneID") ## ----select------------------------------------------------------------------- keys <- c("1","2") columns <- c("xref_pdb", "xref_hgnc", "sequence") kt <- "GeneID" res <- select(up, keys, columns, kt) res ## ----