test_getOrgPkg_load_only <- function() {
    ## check that map between chip and org package works with loaded
    ## but not attached org package
    if ("" %in% search()) {
    pkg <- "hgu95av2.db"
    env <- loadNamespace(pkg)
    db <- get(pkg, env)
    keys <- head(AnnotationDbi::keys(db))
    df <- AnnotationDbi::select(db, keys, "SYMBOL")
    checkIdentical(c(6L, 2L), dim(df))

Try the AnnotationDbi package in your browser

Any scripts or data that you put into this service are public.

AnnotationDbi documentation built on Nov. 1, 2018, 3:37 a.m.