Last updated on 2024-12-01 18:49:26 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.0.4 | 5.47 | 49.67 | 55.14 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.0.4 | 4.49 | 36.23 | 40.72 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.0.4 | 98.60 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.0.4 | 117.20 | ERROR | |||
| r-devel-windows-x86_64 | 1.0.4 | 8.00 | 83.00 | 91.00 | ERROR | |
| r-patched-linux-x86_64 | 1.0.4 | 5.38 | 46.95 | 52.33 | ERROR | |
| r-release-linux-x86_64 | 1.0.4 | 5.33 | 72.15 | 77.48 | OK | |
| r-release-macos-arm64 | 1.0.4 | 133.00 | OK | |||
| r-release-macos-x86_64 | 1.0.4 | 156.00 | OK | |||
| r-release-windows-x86_64 | 1.0.4 | 7.00 | 78.00 | 85.00 | ERROR | |
| r-oldrel-macos-arm64 | 1.0.4 | 126.00 | OK | |||
| r-oldrel-macos-x86_64 | 1.0.4 | 151.00 | OK | |||
| r-oldrel-windows-x86_64 | 1.0.4 | 9.00 | 427.00 | 436.00 | ERROR |
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in ‘rdracor-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached [dracor.org]: Resolving timed out after 10001 milliseconds
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.0.4
Check: tests
Result: ERROR
Running ‘testthat.R’ [4s/516s]
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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in ‘rdracor-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached [dracor.org]: Connection timed out after 10000 milliseconds
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.0.4
Check: tests
Result: ERROR
Running ‘testthat.R’ [3s/344s]
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in ‘rdracor-Ex.R’ failed
The error most likely occurred in:
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached [dracor.org]: Resolving timed out after 10001 milliseconds
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.0.4
Check: tests
Result: ERROR
Running ‘testthat.R’ [7s/384s]
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
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in ‘rdracor-Ex.R’ failed
The error most likely occurred in:
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached [dracor.org]: Resolving timed out after 10000 milliseconds
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 1.0.4
Check: tests
Result: ERROR
Running ‘testthat.R’ [8s/49s]
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
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in 'rdracor-Ex.R' failed
The error most likely occurred in:
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached [dracor.org]: Failed to connect to dracor.org port 443 after 10003 ms: Timeout was reached
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-devel-windows-x86_64
Version: 1.0.4
Check: tests
Result: ERROR
Running 'testthat.R' [344s]
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
Flavor: r-devel-windows-x86_64
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in ‘rdracor-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached [dracor.org]: Connection timed out after 10001 milliseconds
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-patched-linux-x86_64
Version: 1.0.4
Check: tests
Result: ERROR
Running ‘testthat.R’ [4s/346s]
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
Flavor: r-patched-linux-x86_64
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in 'rdracor-Ex.R' failed
The error most likely occurred in:
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Could not resolve hostname [dracor.org]: Could not resolve host: dracor.org
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-release-windows-x86_64
Version: 1.0.4
Check: tests
Result: ERROR
Running 'testthat.R' [4s]
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
Flavor: r-release-windows-x86_64
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in 'rdracor-Ex.R' failed
The error most likely occurred in:
> ### Name: dracor_api
> ### Title: Send a GET request to DraCor API and parse the results
> ### Aliases: dracor_api
>
> ### ** Examples
>
> dracor_api("https://dracor.org/api/v1/info", expected_type = "application/json")
Problem with server occured:
improper data returned:
Error in curl::curl_fetch_memory(url, handle = handle): Timeout was reached [dracor.org]: Failed to connect to dracor.org port 443 after 10011 ms: Timeout was reached
Error in if (resp$status_code == 404) { : argument is of length zero
Calls: dracor_api -> dracor_error
Execution halted
Flavor: r-oldrel-windows-x86_64
Version: 1.0.4
Check: tests
Result: ERROR
Running 'testthat.R' [345s]
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
Flavor: r-oldrel-windows-x86_64