inst/unitTests/test_APIconnection.R

APIconnection <- function(){
  test_id <- "http://bioinfo-csi.nus.edu.sg/methmotif/api/table_query/listTFBS.php?AllTable=F&id=MM1_HSA_K562_CEBPB"
  api_request <- fromJSON(test_id)
  api_request_res <- as.data.frame(api_request$TFBS_records)
  RUnit::checkTrue(nrow(api_request_res)>0)
}
linquynus/TFregulomeR-dev documentation built on April 23, 2022, 11:11 a.m.