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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.