inst/unitTests/test_get_enrichment.R

In STRINGdb: STRINGdb (Search Tool for the Retrieval of Interacting proteins database)

test_get_enrichment <- function(){

  string_db <- STRINGdb$new( version="11", species=9606, score_threshold=400 ) 
  example <- string_db$mp(c('tp53', 'cdk2'));
  enrichment = string_db$get_enrichment(example)
  checkTrue(nrow(enrichment) > 1)

}