Last updated on 2018-08-13 15:51:22 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.1.3 | 9.41 | 112.96 | 122.37 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.1.3 | 7.78 | 87.46 | 95.24 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.1.3 | 141.50 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 0.1.3 | 138.20 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 0.1.3 | 20.00 | 123.00 | 143.00 | ERROR | |
| r-patched-linux-x86_64 | 0.1.3 | 7.92 | 102.02 | 109.94 | ERROR | |
| r-release-linux-x86_64 | 0.1.3 | 8.23 | 102.44 | 110.67 | ERROR | |
| r-release-windows-ix86+x86_64 | 0.1.3 | 13.00 | 160.00 | 173.00 | ERROR | |
| r-release-osx-x86_64 | 0.1.3 | NOTE | ||||
| r-oldrel-windows-ix86+x86_64 | 0.1.3 | 17.00 | 115.00 | 132.00 | ERROR | |
| r-oldrel-osx-x86_64 | 0.1.3 | NOTE |
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘petro.One-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: get_papers_count
> ### Title: Number of paper for a given query
> ### Aliases: get_papers_count
>
> ### ** Examples
>
> # Example 1
> url_1 <- make_search_url(query = "static gradient survey", how = "all")
> get_papers_count(url_1)
Error in open.connection(x, "rb") :
server certificate verification failed. CAfile: none CRLfile: none
Calls: get_papers_count -> <Anonymous> -> read_html.default
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [8s/24s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
── 1. Error: (unknown) (@test_GTE-summary_by.R#7) ─────────────────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) ──
server certificate verification failed. CAfile: none CRLfile: none
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 5. Error: make_search_url matches number of papers from_year to_year (@test_f
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ──────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ──────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) ───────
server certificate verification failed. CAfile: none CRLfile: none
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) ───────
server certificate verification failed. CAfile: none CRLfile: none
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 10. Error: return no results (@test_make_search_url.R#10) ──────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 11. Error: return some results (@test_make_search_url.R#19) ────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) ────────
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 14. Error: when read_multidoc search mechanistic performance (@test_multipage
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 16. Error: when read_multipage presentation only (@test_multipage.R#62) ────
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) ──
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
server certificate verification failed. CAfile: none CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 20. Error: when returning some results, expect dataframe (@test_onepetro_page
server certificate verification failed. CAfile: none CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 23. Error: search returns 0 papers (@test_paper_by_type.R#35) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 24. Error: search returns 1 papers (@test_paper_by_type.R#47) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 25. Error: search returns 1 papers (@test_paper_by_type.R#60) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 26. Error: search returns 1 papers (@test_paper_by_type.R#73) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 27. Error: search returns 2 papers (@test_paper_by_type.R#86) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 28. Error: search returns 1 papers (@test_paper_by_type.R#100) ─────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
══ testthat results ═══════════════════════════════════════════════════════════
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Quitting from lines 31-37 (document_types_of_papers.Rmd)
Error: processing vignette ‘document_types_of_papers.Rmd’ failed with diagnostics:
server certificate verification failed. CAfile: none CRLfile: none
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [6s/25s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
── 1. Error: (unknown) (@test_GTE-summary_by.R#7) ─────────────────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) ──
server certificate verification failed. CAfile: none CRLfile: none
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 5. Error: make_search_url matches number of papers from_year to_year (@test_f
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ──────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ──────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) ───────
server certificate verification failed. CAfile: none CRLfile: none
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) ───────
server certificate verification failed. CAfile: none CRLfile: none
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 10. Error: return no results (@test_make_search_url.R#10) ──────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 11. Error: return some results (@test_make_search_url.R#19) ────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) ────────
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 14. Error: when read_multidoc search mechanistic performance (@test_multipage
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 16. Error: when read_multipage presentation only (@test_multipage.R#62) ────
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) ──
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
server certificate verification failed. CAfile: none CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 20. Error: when returning some results, expect dataframe (@test_onepetro_page
server certificate verification failed. CAfile: none CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 23. Error: search returns 0 papers (@test_paper_by_type.R#35) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 24. Error: search returns 1 papers (@test_paper_by_type.R#47) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 25. Error: search returns 1 papers (@test_paper_by_type.R#60) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 26. Error: search returns 1 papers (@test_paper_by_type.R#73) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 27. Error: search returns 2 papers (@test_paper_by_type.R#86) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 28. Error: search returns 1 papers (@test_paper_by_type.R#100) ─────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
══ testthat results ═══════════════════════════════════════════════════════════
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.1.3
Check: dependencies in R code
Result: NOTE
Namespaces in Imports field not imported from:
‘Rgraphviz’ ‘cluster’ ‘graph’
All declared Imports should be used.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-release-osx-x86_64, r-oldrel-osx-x86_64
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘petro.One-Ex.R’ failed
The error most likely occurred in:
> ### Name: get_papers_count
> ### Title: Number of paper for a given query
> ### Aliases: get_papers_count
>
> ### ** Examples
>
> # Example 1
> url_1 <- make_search_url(query = "static gradient survey", how = "all")
> get_papers_count(url_1)
Error in open.connection(x, "rb") :
SSL certificate problem: unable to get local issuer certificate
Calls: get_papers_count -> <Anonymous> -> read_html.default
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [7s/18s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
── 1. Error: (unknown) (@test_GTE-summary_by.R#7) ─────────────────────────────
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) ──
SSL certificate problem: unable to get local issuer certificate
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 5. Error: make_search_url matches number of papers from_year to_year (@test_f
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ──────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ──────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) ───────
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) ───────
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 10. Error: return no results (@test_make_search_url.R#10) ──────────────────
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 11. Error: return some results (@test_make_search_url.R#19) ────────────────
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) ────────
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 14. Error: when read_multidoc search mechanistic performance (@test_multipage
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 16. Error: when read_multipage presentation only (@test_multipage.R#62) ────
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) ──
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 20. Error: when returning some results, expect dataframe (@test_onepetro_page
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 23. Error: search returns 0 papers (@test_paper_by_type.R#35) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 24. Error: search returns 1 papers (@test_paper_by_type.R#47) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 25. Error: search returns 1 papers (@test_paper_by_type.R#60) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 26. Error: search returns 1 papers (@test_paper_by_type.R#73) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 27. Error: search returns 2 papers (@test_paper_by_type.R#86) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 28. Error: search returns 1 papers (@test_paper_by_type.R#100) ─────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
══ testthat results ═══════════════════════════════════════════════════════════
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
In addition: There were 18 warnings (use warnings() to see them)
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Quitting from lines 31-37 (document_types_of_papers.Rmd)
Error: processing vignette 'document_types_of_papers.Rmd' failed with diagnostics:
SSL certificate problem: unable to get local issuer certificate
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [7s/16s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
── 1. Error: (unknown) (@test_GTE-summary_by.R#7) ─────────────────────────────
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) ──
SSL certificate problem: unable to get local issuer certificate
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 5. Error: make_search_url matches number of papers from_year to_year (@test_f
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ──────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ──────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) ───────
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) ───────
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 10. Error: return no results (@test_make_search_url.R#10) ──────────────────
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 11. Error: return some results (@test_make_search_url.R#19) ────────────────
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) ────────
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 14. Error: when read_multidoc search mechanistic performance (@test_multipage
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 16. Error: when read_multipage presentation only (@test_multipage.R#62) ────
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) ──
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 20. Error: when returning some results, expect dataframe (@test_onepetro_page
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 23. Error: search returns 0 papers (@test_paper_by_type.R#35) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 24. Error: search returns 1 papers (@test_paper_by_type.R#47) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 25. Error: search returns 1 papers (@test_paper_by_type.R#60) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 26. Error: search returns 1 papers (@test_paper_by_type.R#73) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 27. Error: search returns 2 papers (@test_paper_by_type.R#86) ──────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 28. Error: search returns 1 papers (@test_paper_by_type.R#100) ─────────────
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
══ testthat results ═══════════════════════════════════════════════════════════
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.1.3
Check: tests
Result: ERROR
Running 'testthat.R' [19s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
-- 1. Error: (unknown) (@test_GTE-summary_by.R#7) -----------------------------
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) --
SSL certificate problem: unable to get local issuer certificate
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 5. Error: make_search_url matches number of papers from_year to_year (@test_f
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ----------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ----------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) -------
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) -------
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 10. Error: return no results (@test_make_search_url.R#10) ------------------
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 11. Error: return some results (@test_make_search_url.R#19) ----------------
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) --------
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 14. Error: when read_multidoc search mechanistic performance (@test_multipage
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 16. Error: when read_multipage presentation only (@test_multipage.R#62) ----
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) --
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 20. Error: when returning some results, expect dataframe (@test_onepetro_page
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 23. Error: search returns 0 papers (@test_paper_by_type.R#35) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 24. Error: search returns 1 papers (@test_paper_by_type.R#47) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 25. Error: search returns 1 papers (@test_paper_by_type.R#60) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 26. Error: search returns 1 papers (@test_paper_by_type.R#73) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 27. Error: search returns 2 papers (@test_paper_by_type.R#86) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 28. Error: search returns 1 papers (@test_paper_by_type.R#100) -------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
== testthat results ===========================================================
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
In addition: There were 27 warnings (use warnings() to see them)
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [8s/25s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
── 1. Error: (unknown) (@test_GTE-summary_by.R#7) ─────────────────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) ──
server certificate verification failed. CAfile: none CRLfile: none
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 5. Error: make_search_url matches number of papers from_year to_year (@test_f
server certificate verification failed. CAfile: none CRLfile: none
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ──────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ──────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) ───────
server certificate verification failed. CAfile: none CRLfile: none
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) ───────
server certificate verification failed. CAfile: none CRLfile: none
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 10. Error: return no results (@test_make_search_url.R#10) ──────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 11. Error: return some results (@test_make_search_url.R#19) ────────────────
server certificate verification failed. CAfile: none CRLfile: none
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) ────────
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 14. Error: when read_multidoc search mechanistic performance (@test_multipage
server certificate verification failed. CAfile: none CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 16. Error: when read_multipage presentation only (@test_multipage.R#62) ────
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) ──
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
server certificate verification failed. CAfile: none CRLfile: none
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
server certificate verification failed. CAfile: none CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 20. Error: when returning some results, expect dataframe (@test_onepetro_page
server certificate verification failed. CAfile: none CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: none CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 23. Error: search returns 0 papers (@test_paper_by_type.R#35) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 24. Error: search returns 1 papers (@test_paper_by_type.R#47) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 25. Error: search returns 1 papers (@test_paper_by_type.R#60) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 26. Error: search returns 1 papers (@test_paper_by_type.R#73) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 27. Error: search returns 2 papers (@test_paper_by_type.R#86) ──────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 28. Error: search returns 1 papers (@test_paper_by_type.R#100) ─────────────
server certificate verification failed. CAfile: none CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
══ testthat results ═══════════════════════════════════════════════════════════
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
In addition: There were 16 warnings (use warnings() to see them)
Execution halted
Flavor: r-patched-linux-x86_64
Version: 0.1.3
Check: examples
Result: ERROR
Running examples in ‘petro.One-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: get_papers_count
> ### Title: Number of paper for a given query
> ### Aliases: get_papers_count
>
> ### ** Examples
>
> # Example 1
> url_1 <- make_search_url(query = "static gradient survey", how = "all")
> get_papers_count(url_1)
Error in open.connection(x, "rb") :
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
Calls: get_papers_count -> <Anonymous> -> read_html.default
Execution halted
Flavor: r-release-linux-x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [8s/25s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
── 1. Error: (unknown) (@test_GTE-summary_by.R#7) ─────────────────────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) ──
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 5. Error: make_search_url matches number of papers from_year to_year (@test_f
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ──────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ──────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) ───────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) ───────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 10. Error: return no results (@test_make_search_url.R#10) ──────────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 11. Error: return some results (@test_make_search_url.R#19) ────────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
── 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) ────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 14. Error: when read_multidoc search mechanistic performance (@test_multipage
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
── 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 16. Error: when read_multipage presentation only (@test_multipage.R#62) ────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) ──
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 20. Error: when returning some results, expect dataframe (@test_onepetro_page
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
── 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
── 23. Error: search returns 0 papers (@test_paper_by_type.R#35) ──────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 24. Error: search returns 1 papers (@test_paper_by_type.R#47) ──────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 25. Error: search returns 1 papers (@test_paper_by_type.R#60) ──────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 26. Error: search returns 1 papers (@test_paper_by_type.R#73) ──────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 27. Error: search returns 2 papers (@test_paper_by_type.R#86) ──────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
── 28. Error: search returns 1 papers (@test_paper_by_type.R#100) ─────────────
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
══ testthat results ═══════════════════════════════════════════════════════════
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
In addition: There were 16 warnings (use warnings() to see them)
Execution halted
Flavor: r-release-linux-x86_64
Version: 0.1.3
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Quitting from lines 31-37 (document_types_of_papers.Rmd)
Error: processing vignette ‘document_types_of_papers.Rmd’ failed with diagnostics:
server certificate verification failed. CAfile: /etc/ssl/certs/ca-certificates.crt CRLfile: none
Execution halted
Flavor: r-release-linux-x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running 'testthat.R' [19s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
-- 1. Error: (unknown) (@test_GTE-summary_by.R#7) -----------------------------
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) --
SSL certificate problem: unable to get local issuer certificate
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 5. Error: make_search_url matches number of papers from_year to_year (@test_f
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ----------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ----------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) -------
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) -------
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 10. Error: return no results (@test_make_search_url.R#10) ------------------
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 11. Error: return some results (@test_make_search_url.R#19) ----------------
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) --------
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 14. Error: when read_multidoc search mechanistic performance (@test_multipage
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 16. Error: when read_multipage presentation only (@test_multipage.R#62) ----
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) --
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 20. Error: when returning some results, expect dataframe (@test_onepetro_page
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 23. Error: search returns 0 papers (@test_paper_by_type.R#35) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 24. Error: search returns 1 papers (@test_paper_by_type.R#47) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 25. Error: search returns 1 papers (@test_paper_by_type.R#60) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 26. Error: search returns 1 papers (@test_paper_by_type.R#73) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 27. Error: search returns 2 papers (@test_paper_by_type.R#86) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 28. Error: search returns 1 papers (@test_paper_by_type.R#100) -------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
== testthat results ===========================================================
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
Execution halted
Flavor: r-release-windows-ix86+x86_64
Version: 0.1.3
Check: tests
Result: ERROR
Running 'testthat.R' [19s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library(testthat)
> library(petro.One)
>
> test_check("petro.One")
-- 1. Error: (unknown) (@test_GTE-summary_by.R#7) -----------------------------
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_GTE-summary_by.R:7
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 2. Error: all queries match expected values (@test_GTE_paper_count.R#132) --
SSL certificate problem: unable to get local issuer certificate
1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
2: xml2::read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 303) at testthat/test_document_type.R:11
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 4. Error: document type = *conference-paper* matches (@test_document_type.R#2
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), 2687) at testthat/test_document_type.R:22
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 5. Error: make_search_url matches number of papers from_year to_year (@test_f
SSL certificate problem: unable to get local issuer certificate
1: expect_gte(get_papers_count(my_url), expected) at testthat/test_from_year_to_year.R:12
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8) ----------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:8
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21) ----------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_is_dctype_enabled.R:21
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 8. Error: both dataframes return rows - test #5 (@test_joining.R#11) -------
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, another, more, get_papers = TRUE, sleep = 2,
verbose = FALSE) at testthat/test_joining.R:11
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 9. Error: both dataframes return rows - test #3 (@test_joining.R#25) -------
SSL certificate problem: unable to get local issuer certificate
1: join_keywords(major, minor, lesser, get_papers = TRUE, sleep = 2, verbose = FALSE) at testthat/test_joining.R:25
2: get_papers_count(url.1)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 10. Error: return no results (@test_make_search_url.R#10) ------------------
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 0, tolerance = 1) at testthat/test_make_search_url.R:10
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 11. Error: return some results (@test_make_search_url.R#19) ----------------
SSL certificate problem: unable to get local issuer certificate
1: expect_equal(get_papers_count(my_url), 2, tolerance = 1) at testthat/test_make_search_url.R:19
2: quasi_label(enquo(object), label)
3: eval_bare(get_expr(quo), get_env(quo))
4: get_papers_count(my_url)
5: xml2::read_html(url)
6: read_html.default(url)
7: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
8: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
9: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
11: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
12: open(x, "rb")
13: open.connection(x, "rb")
-- 12. Error: when read_multidoc gets zero rows (@test_multipage.R#10) --------
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:10
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 13. Error: when read_multidoc with neural network gets almost 3000 rows (@tes
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:26
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 14. Error: when read_multidoc search mechanistic performance (@test_multipage
SSL certificate problem: unable to get local issuer certificate
1: read_multidoc(my_url) at testthat/test_multipage.R:33
2: papers_by_type(my_url)
3: get_papers_count(url)
4: xml2::read_html(url)
5: read_html.default(url)
6: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
7: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
8: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
10: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
11: open(x, "rb")
12: open.connection(x, "rb")
-- 15. Error: when read_multipage journal-paper gets almost 3000 rows (@test_mul
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:54
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 16. Error: when read_multipage presentation only (@test_multipage.R#62) ----
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url) at testthat/test_multipage.R:62
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 17. Error: when read_multipage journal-paper only (@test_multipage.R#117) --
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "journal-paper") at testthat/test_multipage.R:117
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 18. Error: when read_multipage has no dc_type or doctype (@test_multipage.R#1
SSL certificate problem: unable to get local issuer certificate
1: read_multipage(my_url, doctype = "presentation") at testthat/test_multipage.R:125
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 19. Error: when returning no results, expect dataframe (@test_onepetro_page_t
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:9
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 20. Error: when returning some results, expect dataframe (@test_onepetro_page
SSL certificate problem: unable to get local issuer certificate
1: onepetro_page_to_dataframe(my_url) at testthat/test_onepetro_page_to_dataframe.R:20
2: read_html(url)
3: read_html.default(url)
4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
9: open(x, "rb")
10: open.connection(x, "rb")
-- 21. Error: mechanistic performance, all, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:10
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 22. Error: mechanistic performance, any, returns one row (@test_paper_by_type
SSL certificate problem: unable to get local issuer certificate
1: papers_by_type(my_url) at testthat/test_paper_by_type.R:22
2: get_papers_count(url)
3: xml2::read_html(url)
4: read_html.default(url)
5: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
7: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
8: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
9: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
10: open(x, "rb")
11: open.connection(x, "rb")
-- 23. Error: search returns 0 papers (@test_paper_by_type.R#35) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:35
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 24. Error: search returns 1 papers (@test_paper_by_type.R#47) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:47
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 25. Error: search returns 1 papers (@test_paper_by_type.R#60) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:60
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 26. Error: search returns 1 papers (@test_paper_by_type.R#73) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:73
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 27. Error: search returns 2 papers (@test_paper_by_type.R#86) --------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
-- 28. Error: search returns 1 papers (@test_paper_by_type.R#100) -------------
SSL certificate problem: unable to get local issuer certificate
1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:100
2: read_html.default(my_url)
3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x,
options = options)
8: open(x, "rb")
9: open.connection(x, "rb")
== testthat results ===========================================================
OK: 33 SKIPPED: 0 FAILED: 28
1. Error: (unknown) (@test_GTE-summary_by.R#7)
2. Error: all queries match expected values (@test_GTE_paper_count.R#132)
3. Error: document type = *journal-paper* matches (@test_document_type.R#11)
4. Error: document type = *conference-paper* matches (@test_document_type.R#22)
5. Error: make_search_url matches number of papers from_year to_year (@test_from_year_to_year.R#12)
6. Error: is_dctype_enabled = FALSE (@test_is_dctype_enabled.R#8)
7. Error: is_dctype_enabled = TRUE (@test_is_dctype_enabled.R#21)
8. Error: both dataframes return rows - test #5 (@test_joining.R#11)
9. Error: both dataframes return rows - test #3 (@test_joining.R#25)
1. ...
Error: testthat unit tests failed
In addition: There were 15 warnings (use warnings() to see them)
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64