Running 'spelling.R'
  Running 'testthat.R'
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > 
  > options(epigraphdb.ci = TRUE)
  > test_check("epigraphdb")
  Loading required package: epigraphdb
  
      EpiGraphDB v1.0 (API: https://api.epigraphdb.org)
    
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-confounder.R:14:3): /confounder ───────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-confounder.R:21:3): confounder ────────────────────────────────
  `confounder(exposure_trait = exposure, outcome_trait = outcome)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-confounder.R:21:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::confounder(exposure_trait = exposure, outcome_trait = outcome)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-cypher.R:15:3): POST /cypher ──────────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-cypher.R:21:3): cypher ────────────────────────────────────────
  `cypher(query = query)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(cypher(query = query), NA) test-cypher.R:21:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::cypher(query = query)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-drugs.R:12:3): /drugs/risk-factors ────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-drugs.R:18:3): drugs_risk_factors ─────────────────────────────
  `drugs_risk_factors(trait = trait)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(drugs_risk_factors(trait = trait), NA) test-drugs.R:18:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::drugs_risk_factors(trait = trait)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-genetic_cor.R:12:3): genetic_cor endpoint ─────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-genetic_cor.R:18:3): genetic_cor mode = "table" ───────────────
  `df <- genetic_cor(trait = trait)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(df <- genetic_cor(trait = trait), NA) test-genetic_cor.R:18:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::genetic_cor(trait = trait)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-genetic_cor.R:24:3): genetic_cor mode = "table" ───────────────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-genetic_cor.R:29:3): genetic_cor mode = "raw" ─────────────────
  `response <- genetic_cor(trait = trait, mode = "raw")` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-genetic_cor.R:29:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::genetic_cor(trait = trait, mode = "raw")
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-genetic_cor.R:36:3): genetic_cor mode = "raw" ───────────────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'response' not found
  Backtrace:
      █
   1. └─testthat::expect_equal(length(response), 2L) test-genetic_cor.R:36:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-genetic_cor.R:41:3): genetic_cor cor_coef_threshold ───────────
  `response <- genetic_cor(trait = trait, cor_coef_threshold = 0.8)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-genetic_cor.R:41:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::genetic_cor(trait = trait, cor_coef_threshold = 0.8)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-genetic_cor.R:48:3): genetic_cor cor_coef_threshold ───────────
  `response <- genetic_cor(trait = trait, cor_coef_threshold = 0.6)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-genetic_cor.R:48:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::genetic_cor(trait = trait, cor_coef_threshold = 0.6)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-genetic_cor.R:55:3): genetic_cor cor_coef_threshold ───────────
  `response <- genetic_cor(trait = trait, cor_coef_threshold = 0.4)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-genetic_cor.R:55:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::genetic_cor(trait = trait, cor_coef_threshold = 0.4)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-literature.R:14:3): /literature/gwas ──────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-literature.R:20:3): literature_gwas ───────────────────────────
  `literature_gwas(trait = trait)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(literature_gwas(trait = trait), NA) test-literature.R:20:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::literature_gwas(trait = trait)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mappings.R:16:3): POST /mappings/gene-to-protein ──────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-mappings.R:22:3): mappings_gene_to_protein, by gene name ──────
  `df <- mappings_gene_to_protein(gene_name_list = gene_name_list)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mappings.R:22:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mappings_gene_to_protein(gene_name_list = gene_name_list)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mappings.R:28:3): mappings_gene_to_protein, by gene name ──────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-mappings.R:33:3): mappings_gene_to_protein, by gene name, singleton ──
  `df <- mappings_gene_to_protein(gene_name_list = gene_name_list)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mappings.R:33:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mappings_gene_to_protein(gene_name_list = gene_name_list)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mappings.R:39:3): mappings_gene_to_protein, by gene name, singleton ──
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-mappings.R:44:3): mappings_gene_to_protein, by gene id ────────
  `df <- mappings_gene_to_protein(gene_id_list = gene_id_list, by_gene_id = TRUE)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mappings.R:44:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mappings_gene_to_protein(...)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mappings.R:51:3): mappings_gene_to_protein, by gene id ────────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-mappings.R:56:3): mappings_gene_to_protein, by gene id, singleton ──
  `df <- mappings_gene_to_protein(gene_id_list = gene_id_list, by_gene_id = TRUE)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mappings.R:56:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mappings_gene_to_protein(...)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mappings.R:63:3): mappings_gene_to_protein, by gene id, singleton ──
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-meta.R:41:3): meta_nodes_list_node ────────────────────────────
  `meta_nodes_list_node(meta_node = meta_node)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-meta.R:41:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::meta_nodes_list_node(meta_node = meta_node)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-meta.R:51:3): meta_rels_list_rel ──────────────────────────────
  `meta_rels_list_rel(meta_rel = meta_rel)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-meta.R:51:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::meta_rels_list_rel(meta_rel = meta_rel)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-meta.R:62:3): meta_nodes_search_node, by id ───────────────────
  `meta_nodes_search_node(meta_node = meta_node, id = id)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-meta.R:62:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::meta_nodes_search_node(meta_node = meta_node, id = id)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-meta.R:74:3): meta_nodes_search_node, by name ─────────────────
  `meta_nodes_search_node(meta_node = meta_node, name = name)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-meta.R:74:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::meta_nodes_search_node(meta_node = meta_node, name = name)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mr.R:14:3): mr endpoint ───────────────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-mr.R:21:3): mr mode = "table" ─────────────────────────────────
  `df <- mr(exposure_trait = exposure, outcome_trait = outcome)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mr.R:21:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mr(exposure_trait = exposure, outcome_trait = outcome)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mr.R:28:3): mr mode = "table" ─────────────────────────────────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-mr.R:34:3): mr mode = "raw" ───────────────────────────────────
  `... <- NULL` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mr.R:34:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mr(...)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-mr.R:42:3): mr mode = "raw" ─────────────────────────────────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'response' not found
  Backtrace:
      █
   1. └─testthat::expect_equal(length(response), 2L) test-mr.R:42:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-mr.R:48:3): mr parameters ─────────────────────────────────────
  `mr(exposure_trait = exposure, outcome_trait = NULL)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mr.R:48:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mr(exposure_trait = exposure, outcome_trait = NULL)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mr.R:55:3): mr parameters ─────────────────────────────────────
  `mr(exposure_trait = NULL, outcome_trait = outcome)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mr.R:55:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mr(exposure_trait = NULL, outcome_trait = outcome)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mr.R:72:3): mr pval_threshold ─────────────────────────────────
  `response <- mr(exposure_trait = exposure, pval_threshold = 1e-05)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mr.R:72:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mr(exposure_trait = exposure, pval_threshold = 1e-05)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mr.R:79:3): mr pval_threshold ─────────────────────────────────
  `response <- mr(exposure_trait = exposure, pval_threshold = 1e-08)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mr.R:79:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mr(exposure_trait = exposure, pval_threshold = 1e-08)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-mr.R:86:3): mr pval_threshold ─────────────────────────────────
  `response <- mr(exposure_trait = exposure, pval_threshold = 0.01)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-mr.R:86:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::mr(exposure_trait = exposure, pval_threshold = 0.01)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-obs_cor.R:12:3): obs_cor endpoint ─────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-obs_cor.R:18:3): obs_cor mode = "table" ───────────────────────
  `df <- obs_cor(trait = trait)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(df <- obs_cor(trait = trait), NA) test-obs_cor.R:18:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::obs_cor(trait = trait)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-obs_cor.R:24:3): obs_cor mode = "table" ───────────────────────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-obs_cor.R:29:3): obs_cor mode = "raw" ─────────────────────────
  `response <- obs_cor(trait = trait, mode = "raw")` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-obs_cor.R:29:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::obs_cor(trait = trait, mode = "raw")
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-obs_cor.R:36:3): obs_cor mode = "raw" ───────────────────────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'response' not found
  Backtrace:
      █
   1. └─testthat::expect_equal(length(response), 2L) test-obs_cor.R:36:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-obs_cor.R:41:3): obs_cor cor_coef_threshold ───────────────────
  `response <- obs_cor(trait = trait, cor_coef_threshold = 0.8)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-obs_cor.R:41:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::obs_cor(trait = trait, cor_coef_threshold = 0.8)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-obs_cor.R:48:3): obs_cor cor_coef_threshold ───────────────────
  `response <- obs_cor(trait = trait, cor_coef_threshold = 0.6)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-obs_cor.R:48:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::obs_cor(trait = trait, cor_coef_threshold = 0.6)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-obs_cor.R:55:3): obs_cor cor_coef_threshold ───────────────────
  `response <- obs_cor(trait = trait, cor_coef_threshold = 0.4)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-obs_cor.R:55:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::obs_cor(trait = trait, cor_coef_threshold = 0.4)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-ontology.R:12:3): ontology endpoint ───────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-ontology.R:18:3): ontology mode = "table" ─────────────────────
  `df <- ontology_gwas_efo(efo_term = efo_term)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-ontology.R:18:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::ontology_gwas_efo(efo_term = efo_term)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-ontology.R:24:3): ontology mode = "table" ─────────────────────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-ontology.R:29:3): mr mode = "raw" ─────────────────────────────
  `response <- ontology_gwas_efo(efo_term = efo_term, mode = "raw")` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-ontology.R:29:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::ontology_gwas_efo(efo_term = efo_term, mode = "raw")
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-ontology.R:36:3): mr mode = "raw" ───────────────────────────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'response' not found
  Backtrace:
      █
   1. └─testthat::expect_equal(length(response), 2L) test-ontology.R:36:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-pathway.R:12:3): /pathway ─────────────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-pathway.R:18:3): pathway ──────────────────────────────────────
  `pathway(trait = trait)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(pathway(trait = trait), NA) test-pathway.R:18:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::pathway(trait = trait)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-pqtl.R:18:3): pqtl protein endpoint ───────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-pqtl.R:37:3): pqtl trait endpoint ─────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-pqtl.R:51:3): pqtl_pleio endpoint ─────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-pqtl.R:63:3): pqtl_list endpoint ──────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Error (test-pqtl.R:71:3): pqtl correct input ────────────────────────────────
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl(...) test-pqtl.R:71:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-pqtl.R:102:3): pqtl not found input ─────────────────────────────
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl(...) test-pqtl.R:102:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-pqtl.R:114:3): pqtl_pleio correct input for a list of proteins ──
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl_pleio(rsid = rsid, prflag = prflag) test-pqtl.R:114:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-pqtl.R:124:3): pqtl_pleio correct input for a count ─────────────
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl_pleio(rsid = rsid, prflag = prflag) test-pqtl.R:124:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-pqtl.R:145:3): pqtl_pleio not found input ───────────────────────
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl_pleio(rsid = rsid, prflag = prflag) test-pqtl.R:145:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-pqtl.R:154:3): pqtl_list raw ────────────────────────────────────
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl_list(flag = flag, mode = "raw") test-pqtl.R:154:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-pqtl.R:163:3): pqtl_list correct exposures input ────────────────
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl_list(flag = flag) test-pqtl.R:163:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-pqtl.R:172:3): pqtl_list correct outcomes input ─────────────────
  Error in `stop_for_status(response, call = sys.call(-1))`: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Backtrace:
      █
   1. └─epigraphdb::pqtl_list(flag = flag) test-pqtl.R:172:2
   2.   └─epigraphdb::query_epigraphdb(...)
   3.     └─epigraphdb:::api_request(...)
   4.       ├─base::do.call(...)
   5.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   6.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-protein.R:16:3): POST /protein/in-pathway ─────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-protein.R:22:3): protein_in_pathway ───────────────────────────
  `df <- protein_in_pathway(uniprot_id_list = uniprot_id_list)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-protein.R:22:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::protein_in_pathway(uniprot_id_list = uniprot_id_list)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-protein.R:28:3): protein_in_pathway ───────────────────────────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-protein.R:33:3): protein_in_pathway, singleton ────────────────
  `df <- protein_in_pathway(uniprot_id_list = uniprot_id_list)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-protein.R:33:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::protein_in_pathway(uniprot_id_list = uniprot_id_list)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-protein.R:39:3): protein_in_pathway, singleton ────────────────
  `df` inherits from `'function'` not `'character'`.
  ── Failure (test-request_and_response.R:4:3): query_epigraphdb raw ─────────────
  `... <- NULL` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-request_and_response.R:4:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::query_epigraphdb(...)
    7.   └─epigraphdb:::api_request(...)
    8.     ├─base::do.call(...)
    9.     └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   10.       └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-request_and_response.R:14:3): query_epigraphdb raw ──────────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'results' not found
  Backtrace:
      █
   1. └─testthat::expect_equal(names(results), c("metadata", "results")) test-request_and_response.R:14:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-request_and_response.R:18:3): query_epigraphdb table ──────────
  `... <- NULL` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-request_and_response.R:18:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::query_epigraphdb(...)
    7.   └─epigraphdb:::api_request(...)
    8.     ├─base::do.call(...)
    9.     └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   10.       └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-request_and_response.R:29:3): query_epigraphdb table ────────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'results' not found
  Backtrace:
      █
   1. └─testthat::expect_is(results, "tbl_df") test-request_and_response.R:29:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-request_and_response.R:45:3): query_epigraphdb POST 1 ─────────
  `... <- NULL` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-request_and_response.R:45:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::query_epigraphdb(...)
    7.   └─epigraphdb:::api_request(...)
    8.     ├─base::do.call(...)
    9.     └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   10.       └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-request_and_response.R:55:3): query_epigraphdb POST 1 ───────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'results' not found
  Backtrace:
      █
   1. └─testthat::expect_equal(names(results), c("metadata", "results")) test-request_and_response.R:55:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-request_and_response.R:59:3): query_epigraphdb POST 2 ─────────
  `... <- NULL` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-request_and_response.R:59:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::query_epigraphdb(...)
    7.   └─epigraphdb:::api_request(...)
    8.     ├─base::do.call(...)
    9.     └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   10.       └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Error (test-request_and_response.R:78:3): query_epigraphdb POST 2 ───────────
  Error in `eval_bare(expr, quo_get_env(quo))`: object 'results' not found
  Backtrace:
      █
   1. └─testthat::expect_is(results, "tbl_df") test-request_and_response.R:78:2
   2.   └─testthat::quasi_label(enquo(object), label, arg = "object")
   3.     └─rlang::eval_bare(expr, quo_get_env(quo))
  ── Failure (test-xqtl.R:12:3): /xqtl/multi-snp-mr ──────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-xqtl.R:25:3): /xqtl/single-snp-mr ─────────────────────────────
  httr::status_code(r) not equal to 200.
  1/1 mismatches
  [1] 500 - 200 == 300
  ── Failure (test-xqtl.R:31:3): xqtl_multi_snp_mr ───────────────────────────────
  `xqtl_multi_snp_mr(outcome_trait = outcome_trait)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-xqtl.R:31:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::xqtl_multi_snp_mr(outcome_trait = outcome_trait)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  ── Failure (test-xqtl.R:41:3): xqtl_single_snp_mr ──────────────────────────────
  `xqtl_single_snp_mr(outcome_trait = outcome_trait)` threw an error.
  Message: Internal Server Error (HTTP 500).
  Detail:
  [1] "Internal Server Error"do.call(method, args = list(route = route, params = params, retry_times = retry_times, retry_pause_min = retry_pause_min, call = call))
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test-xqtl.R:41:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─epigraphdb::xqtl_single_snp_mr(outcome_trait = outcome_trait)
    7.   └─epigraphdb::query_epigraphdb(...)
    8.     └─epigraphdb:::api_request(...)
    9.       ├─base::do.call(...)
   10.       └─(function (route, params, retry_times, retry_pause_min, call = sys.call(-1)) ...
   11.         └─epigraphdb:::stop_for_status(response, call = sys.call(-1))
  
  [ FAIL 83 | WARN 0 | SKIP 0 | PASS 26 ]
  Error: Test failures
  Execution halted