Running 'testthat.R' [14s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(rdracor)
  > 
  > test_check("rdracor")
  DraCor API was not found:
   [ FAIL 34 | WARN 0 | SKIP 0 | PASS 8 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-core.R:21:3'): dracor_sparql() returns xml_document by default ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(...) at test-core.R:21:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::dracor_sparql("SELECT * WHERE {?s ?p ?o} LIMIT 10")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-core.R:28:3'): dracor_sparql() returns character with parse = FALSE ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-core.R:28:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::dracor_sparql(...)
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-core.R:37:3'): dracor_sparql() returns xml_document ────────────
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(...) at test-core.R:37:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::dracor_sparql("SELECT * WHERE {?s ?p ?o} LIMIT 10")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-core.R:44:3'): dracor_sparql() with parse = FALSE returns character ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-core.R:44:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::dracor_sparql(...)
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-core.R:53:3'): dracor_api_info returns NULL ────────────────────
  Error in `cat("DraCor API was not found:\n", e)`: argument 2 (type 'list') cannot be handled by 'cat'
  Backtrace:
      ▆
   1. ├─testthat::expect_invisible(dracor_api_info()) at test-core.R:53:3
   2. │ └─base::withVisible(call)
   3. └─rdracor::dracor_api_info()
   4.   └─base::tryCatch(...)
   5.     └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   6.       └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   7.         └─value[[3L]](cond)
   8.           └─base::cat("DraCor API was not found:\n", e)
  ── Error ('test-core.R:53:3'): dracor_api_info returns NULL ────────────────────
  Error in `dracor_api_info()`: object 'api_info_list' not found
  Backtrace:
      ▆
   1. ├─testthat::expect_invisible(dracor_api_info()) at test-core.R:53:3
   2. │ └─base::withVisible(call)
   3. └─rdracor::dracor_api_info()
   4.   ├─base::tryCatch(...)
   5.   ├─base::cat(...)
   6.   └─base::paste(...)
  ── Error ('test-dracor.R:2:3'): Cal corpus is S3 class 'dracor' ────────────────
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(get_dracor("cal"), "dracor") at test-dracor.R:2:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_dracor("cal")
    5.   └─rdracor:::get_available_corpus_names()
    6.     └─rdracor::get_dracor_meta()
    7.       ├─rdracor:::dracor_meta(...)
    8.       │ └─utils::type.convert(...)
    9.       └─rdracor::dracor_api(...)
   10.         └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor.R:11:3'): several corpora are downloaded via get_dracor() if character vector
            is provided ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(get_dracor(c("tat", "span")), "tbl_df") at test-dracor.R:11:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_dracor(c("tat", "span"))
    5.   └─rdracor:::get_available_corpus_names()
    6.     └─rdracor::get_dracor_meta()
    7.       ├─rdracor:::dracor_meta(...)
    8.       │ └─utils::type.convert(...)
    9.       └─rdracor::dracor_api(...)
   10.         └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor.R:15:3'): is.dracor() works for 'dracor' object ─────────
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_true(is.dracor(get_dracor("cal"))) at test-dracor.R:15:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─rdracor:::is.dracor(get_dracor("cal"))
    5. └─rdracor::get_dracor("cal")
    6.   └─rdracor:::get_available_corpus_names()
    7.     └─rdracor::get_dracor_meta()
    8.       ├─rdracor:::dracor_meta(...)
    9.       │ └─utils::type.convert(...)
   10.       └─rdracor::dracor_api(...)
   11.         └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor.R:25:5'): summary() work for 'dracor' object if there is no info on some years ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-dracor.R:25:5
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nchar(capture.output(summary(get_dracor("tat"))))
    5. ├─utils::capture.output(summary(get_dracor("tat")))
    6. │ └─base::withVisible(...elt(i))
    7. ├─base::summary(get_dracor("tat"))
    8. └─rdracor::get_dracor("tat")
    9.   └─rdracor:::get_available_corpus_names()
   10.     └─rdracor::get_dracor_meta()
   11.       ├─rdracor:::dracor_meta(...)
   12.       │ └─utils::type.convert(...)
   13.       └─rdracor::dracor_api(...)
   14.         └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor.R:35:5'): Written year with format 'YYYY/YYYY' is processed as integer in column
    yearWrittenFinish ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
       ▆
    1. ├─testthat::expect_is(get_dracor("rus")$yearWrittenFinish, "integer") at test-dracor.R:35:5
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─rdracor::get_dracor("rus")
    5.   └─rdracor:::get_available_corpus_names()
    6.     └─rdracor::get_dracor_meta()
    7.       ├─rdracor:::dracor_meta(...)
    8.       │ └─utils::type.convert(...)
    9.       └─rdracor::dracor_api(...)
   10.         └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor.R:40:3'): get_character_plays() for Maria Stuart returns at least 2 plays ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_gte(...) at test-dracor.R:40:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::nrow(get_character_plays(char_wiki_id = "Q131412"))
   5. └─rdracor::get_character_plays(char_wiki_id = "Q131412")
   6.   └─rdracor::dracor_api(...)
   7.     └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor_meta.R:2:3'): get_dracor_meta() returns dracor_meta object ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(get_dracor_meta(), "dracor_meta") at test-dracor_meta.R:2:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_dracor_meta()
   5.   ├─rdracor:::dracor_meta(...)
   6.   │ └─utils::type.convert(...)
   7.   └─rdracor::dracor_api(...)
   8.     └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor_meta.R:6:3'): is.dracor_meta() works for 'dracor_meta' object ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_true(is.dracor_meta(get_dracor_meta())) at test-dracor_meta.R:6:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─rdracor:::is.dracor_meta(get_dracor_meta())
   5. └─rdracor::get_dracor_meta()
   6.   ├─rdracor:::dracor_meta(...)
   7.   │ └─utils::type.convert(...)
   8.   └─rdracor::dracor_api(...)
   9.     └─rdracor:::dracor_error(resp)
  ── Error ('test-dracor_meta.R:14:3'): summary for dracor_meta object is visible ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─rdracor::get_dracor_meta() at test-dracor_meta.R:14:3
   2.   ├─rdracor:::dracor_meta(...)
   3.   │ └─utils::type.convert(...)
   4.   └─rdracor::dracor_api(...)
   5.     └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:2:3'): get_net_cooccur_metrics returns list ──────────────
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_type(...) at test-net.R:2:3
   2. │ └─testthat::quasi_label(enquo(object), arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_net_cooccur_metrics("pushkin-boris-godunov", "rus")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:6:3'): column names for get_net_cooccur_edges() are valid ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test-net.R:6:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─rdracor::get_net_cooccur_edges("pushkin-boris-godunov", "rus")
   5.   └─rdracor::dracor_api(...)
   6.     └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:13:3'): get_net_cooccur_gexf() returns valid object ──────
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_gexf("pushkin-boris-godunov", "rus") at test-net.R:13:3
   2.   └─rdracor::dracor_api(...)
   3.     └─rdracor:::dracor_error(resp)
  ── Error ('test-net.R:23:3'): cooccur_igraph is returned by get_net_cooccur_igraph() ──
  Error in `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-1", "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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-1", "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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  Backtrace:
      ▆
   1. └─rdracor::get_net_cooccur_igraph("henry-iv-part-1", "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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 `if (resp$status_code == 404) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - data were not found", 
          resp$status_code))
  } else if (resp$status_code == 400) {
      stop(sprintf("Status code - %i: Wrong Dracor API request - invalid request", 
          resp$status_code))
  } else if (resp$status_code >= 500) {
      stop(sprintf("Status code - %i: Internal Dracor server problem", 
          resp$status_code))
  } else if (resp$status_code != 200) {
      stop(sprintf("Status code - %i: Unknown problem", resp$status_code))
  }`: argument is of length zero
  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 34 | WARN 0 | SKIP 0 | PASS 8 ]
  Error: Test failures
  Execution halted