Running ‘testthat.R’ [5s/37s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rdracor)
  > 
  > test_check("rdracor")
  DraCor API URL:  https://dracor.org/api/v1 
   name: DraCor API v1
  version: 1.0.2
  status: stable
  existdb: 6.2.0
  base: https://dracor.org/api/v1[ FAIL 16 | WARN 0 | SKIP 0 | PASS 25 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-net.R:23:3'): cooccur_igraph is returned by get_net_cooccur_igraph() ──
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(...) at test-net.R:23:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_net_cooccur_igraph("gogol-zhenitba", "rus")
   5.   └─rdracor::get_play_characters(play = play, corpus = corpus, as_tibble = FALSE)
   6.     └─rdracor::dracor_api(...)
   7.       └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:30:3'): label_cooccur_igraph() return come NA for big network ──
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-i", "shake") at test-net.R:30:3
   2.   └─rdracor::get_play_characters(play = play, corpus = corpus, as_tibble = FALSE)
   3.     └─rdracor::dracor_api(...)
   4.       └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:37:5'): label_cooccur_igraph() do not return NA after max_graph_size adjustment ──
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-i", "shake") at test-net.R:37:5
   2.   └─rdracor::get_play_characters(play = play, corpus = corpus, as_tibble = FALSE)
   3.     └─rdracor::dracor_api(...)
   4.       └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:43:3'): summary.cooccur_igraph() prints appropriate number of rows ──
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-i", "shake") at test-net.R:43:3
   2.   └─rdracor::get_play_characters(play = play, corpus = corpus, as_tibble = FALSE)
   3.     └─rdracor::dracor_api(...)
   4.       └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:48:3'): relations_igraph is returned by get_net_relations_igraph() ──
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(...) at test-net.R:48:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_net_relations_igraph("gogol-zhenitba", "rus")
   5.   └─rdracor::get_net_relations_edges(...)
   6.     └─rdracor::dracor_api(...)
   7.       └─rdracor:::dracor_error(resp)
  ── Error ('test-play.R:2:3'): get_play_metadata returns list ───────────────────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-play.R:2:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_play_metadata("pushkin-boris-godunov", "rus")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-play.R:6:3'): rdf is not empty ─────────────────────────────────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. └─rdracor::get_play_rdf("pushkin-boris-godunov", "rus") at test-play.R:6:3
   2.   └─rdracor::dracor_api(...)
   3.     └─rdracor:::dracor_error(resp)
  ── Error ('test-play.R:12:3'): boris godunov has 79 characters ─────────────────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-play.R:12:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::nrow(get_play_characters("pushkin-boris-godunov", "rus"))
   5. └─rdracor::get_play_characters("pushkin-boris-godunov", "rus")
   6.   └─rdracor::dracor_api(...)
   7.     └─rdracor:::dracor_error(resp)
  ── Error ('test-tei_to_df.R:2:3'): tei_to_df converts tei object to tibble ─────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-tei_to_df.R:2:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─rdracor::tei_to_df(get_text_tei(corpus = "rus", play = "gogol-zhenitba"))
    5. │ └─tei %>% xml2::xml_ns_strip()
    6. ├─xml2::xml_ns_strip(.)
    7. │ └─xml2::xml_find_all(x, "//namespace::*[name()='']/parent::*")
    8. └─rdracor::get_text_tei(corpus = "rus", play = "gogol-zhenitba")
    9.   └─rdracor::dracor_api(...)
   10.     └─rdracor:::dracor_error(resp)
  ── Error ('test-tei_to_df.R:9:3'): get_text_df returns tibble ──────────────────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-tei_to_df.R:9:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─rdracor::get_text_df(corpus = "rus", play = "gogol-zhenitba")
    5. │ ├─get_text_tei(play = play, corpus = corpus) %>% tei_to_df()
    6. │ └─rdracor::get_text_tei(play = play, corpus = corpus)
    7. │   └─rdracor::dracor_api(...)
    8. │     └─rdracor:::dracor_error(resp)
    9. ├─rdracor::tei_to_df(.)
   10. │ └─tei %>% xml2::xml_ns_strip()
   11. └─xml2::xml_ns_strip(.)
   12.   └─xml2::xml_find_all(x, "//namespace::*[name()='']/parent::*")
  ── Error ('test-text.R:2:3'): tei text is not empty ────────────────────────────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. └─rdracor::get_text_tei("pushkin-boris-godunov", "rus") at test-text.R:2:3
   2.   └─rdracor::dracor_api(...)
   3.     └─rdracor:::dracor_error(resp)
  ── Error ('test-text.R:8:3'): get_text_chr_spoken() returns text ───────────────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-text.R:8:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_text_chr_spoken("pushkin-boris-godunov", "rus")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-text.R:17:5'): get_text_chr_spoken() for Boris Godunov, UNKNOWN gender returns more than one value ──
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_gt(...) at test-text.R:17:5
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_text_chr_spoken(...)
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-text.R:27:3'): get_text_chr_spoken_bych() returns data.frame ───
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-text.R:27:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_text_chr_spoken_bych("pushkin-boris-godunov", "rus")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-text.R:34:3'): get_text_chr_stage() returns text ───────────────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-text.R:34:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_text_chr_stage("pushkin-boris-godunov", "rus")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-text.R:41:3'): get_text_chr_stage_with_sp() returns text ───────
  Error in `dracor_error(resp)`: Status code - 502: Internal Dracor server problem
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-text.R:41:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_text_chr_stage_with_sp(...)
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  
  [ FAIL 16 | WARN 0 | SKIP 0 | PASS 25 ]
  Error: Test failures
  Execution halted