inst/httptest/redact.R

In ramiromagno/gwasrapidd: 'REST' 'API' Client for the 'NHGRI'-'EBI' 'GWAS' Catalog

httptest::set_redactor(function (response) {
  response %>%
    httptest::gsub_response("^https\\://www.ebi.ac.uk/gwas/rest/api/studies/", "gc/s/") %>%
    httptest::gsub_response("^https\\://www.ebi.ac.uk/gwas/rest/api/associations/", "gc/a/") %>%
    httptest::gsub_response("^https\\://www.ebi.ac.uk/gwas/rest/api/singleNucleotidePolymorphisms/", "gc/v/") %>%
    httptest::gsub_response("^https\\://www.ebi.ac.uk/gwas/rest/api/efoTraits/", "gc/t/") %>%
    httptest::gsub_response("^https\\://www.ebi.ac.uk/gwas/rest/api/", "gc/") %>%
    httptest::gsub_response("^https\\://www.ebi.ac.uk/efo/", "efo/") %>%
    httptest::gsub_response("^https\\://www.ebi.ac.uk/ols/api/ontologies/efo/", "ols/efo/") %>%
    httptest::gsub_response("^https\\://httpbin.org/", "httpbin/")
})