inst/unitTests/test_APIconnection.R

APIconnection <- function() {
  test_id <- "http://methmotif.org/api/table_query/listTFBS.php?AllTable=F&id=MM1_HSA_K562_CEBPB"
  api_request <- jsonlite::fromJSON(test_id)
  api_request_res <- as.data.frame(api_request$TFBS_records)
  RUnit::checkTrue(nrow(api_request_res) > 0)
}
benoukraflab/TFregulomeR documentation built on July 8, 2024, 5:03 p.m.