Last updated on 2025-01-27 03:49:43 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.1 | 14.27 | 105.54 | 119.81 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.4.0 | 8.03 | 104.98 | 113.01 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.4.0 | 291.42 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.4.0 | 302.98 | OK | |||
| r-devel-windows-x86_64 | 0.4.0 | 13.00 | 170.00 | 183.00 | OK | |
| r-patched-linux-x86_64 | 0.3.1 | 13.39 | 97.71 | 111.10 | OK | |
| r-release-linux-x86_64 | 0.4.0 | 9.76 | 153.39 | 163.15 | OK | |
| r-release-macos-arm64 | 0.4.0 | 94.00 | OK | |||
| r-release-macos-x86_64 | 0.4.0 | 142.00 | ERROR | |||
| r-release-windows-x86_64 | 0.4.0 | 12.00 | 160.00 | 172.00 | OK | |
| r-oldrel-macos-arm64 | 0.3.1 | 67.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.3.1 | 143.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.4.0 | 15.00 | 184.00 | 199.00 | OK |
Version: 0.4.0
Check: examples
Result: ERROR
Running examples in ‘teal.reporter-Ex.R’ failed
The error most likely occurred in:
> ### Name: Renderer
> ### Title: 'Renderer'
> ### Aliases: Renderer
> ### Keywords: internal
>
> ### ** Examples
>
> ## Don't show:
> if (require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(yaml)
+ library(rtables)
+ library(ggplot2)
+
+ ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
+ Reporter <- getFromNamespace("Reporter", "teal.reporter")
+ yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
+ md_header <- getFromNamespace("md_header", "teal.reporter")
+ Renderer <- getFromNamespace("Renderer", "teal.reporter")
+
+ card1 <- ReportCard$new()
+ card1$append_text("Header 2 text", "header2")
+ card1$append_text("A paragraph of default text")
+ card1$append_plot(
+ ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
+ )
+
+ card2 <- ReportCard$new()
+ card2$append_text("Header 2 text", "header2")
+ card2$append_text("A paragraph of default text")
+ lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
+ table_res2 <- build_table(lyt, airquality)
+ card2$append_table(table_res2)
+ card2$append_rcode("2+2", echo = FALSE)
+
+ reporter <- Reporter$new()
+ reporter$append_cards(list(card1, card2))
+
+ yaml_l <- list(
+ author = yaml_quoted("NEST"),
+ title = yaml_quoted("Report"),
+ date = yaml_quoted("07/04/2019"),
+ output = list(html_document = list(toc = FALSE))
+ )
+
+ yaml_header <- md_header(as.yaml(yaml_l))
+
+ result_path <- Renderer$new()$renderRmd(reporter$get_blocks(), yaml_header)
+ ## Don't show:
+ }) # examplesIf
Loading required package: ggplot2
> library(yaml)
> library(rtables)
Loading required package: formatters
Attaching package: ‘formatters’
The following object is masked from ‘package:base’:
%||%
Loading required package: magrittr
Attaching package: ‘rtables’
The following object is masked from ‘package:utils’:
str
> library(ggplot2)
> ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
> Reporter <- getFromNamespace("Reporter", "teal.reporter")
> yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
> md_header <- getFromNamespace("md_header", "teal.reporter")
> Renderer <- getFromNamespace("Renderer", "teal.reporter")
> card1 <- ReportCard$new()
> card1$append_text("Header 2 text", "header2")
> card1$append_text("A paragraph of default text")
> card1$append_plot(ggplot(iris, aes(x = Petal.Length)) + geom_histogram())
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
> card2 <- ReportCard$new()
> card2$append_text("Header 2 text", "header2")
> card2$append_text("A paragraph of default text")
> lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
> table_res2 <- build_table(lyt, airquality)
Split var [Day] was not character or factor. Converting to factor
> card2$append_table(table_res2)
> card2$append_rcode("2+2", echo = FALSE)
> reporter <- Reporter$new()
> reporter$append_cards(list(card1, card2))
> yaml_l <- list(author = yaml_quoted("NEST"), title = yaml_quoted("Report"),
+ date = yaml_quoted("07/04/2019"), output = list(html_document = list(toc = FALSE)))
> yaml_header <- md_header(as.yaml(yaml_l))
> result_path <- Renderer$new()$renderRmd(reporter$get_blocks(), yaml_header)
> ## End(Don't show)
> ## Don't show:
> if (require("ggplot2")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(yaml)
+ library(ggplot2)
+
+ ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
+ Reporter <- getFromNamespace("Reporter", "teal.reporter")
+ yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
+ md_header <- getFromNamespace("md_header", "teal.reporter")
+ Renderer <- getFromNamespace("Renderer", "teal.reporter")
+
+ card1 <- ReportCard$new()
+ card1$append_text("Header 2 text", "header2")
+ card1$append_text("A paragraph of default text")
+ card1$append_plot(
+ ggplot(iris, aes(x = Petal.Length)) + geom_histogram()
+ )
+
+ card2 <- ReportCard$new()
+ card2$append_text("Header 2 text", "header2")
+ card2$append_text("A paragraph of default text")
+ lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
+ table_res2 <- build_table(lyt, airquality)
+ card2$append_table(table_res2)
+ card2$append_rcode("2+2", echo = FALSE)
+
+ reporter <- Reporter$new()
+ reporter$append_cards(list(card1, card2))
+
+ yaml_l <- list(
+ author = yaml_quoted("NEST"),
+ title = yaml_quoted("Report"),
+ date = yaml_quoted("07/04/2019"),
+ output = list(html_document = list(toc = FALSE))
+ )
+
+ yaml_header <- md_header(as.yaml(yaml_l))
+ result_path <- Renderer$new()$render(reporter$get_blocks(), yaml_header)
+ ## Don't show:
+ }) # examplesIf
> library(yaml)
> library(ggplot2)
> ReportCard <- getFromNamespace("ReportCard", "teal.reporter")
> Reporter <- getFromNamespace("Reporter", "teal.reporter")
> yaml_quoted <- getFromNamespace("yaml_quoted", "teal.reporter")
> md_header <- getFromNamespace("md_header", "teal.reporter")
> Renderer <- getFromNamespace("Renderer", "teal.reporter")
> card1 <- ReportCard$new()
> card1$append_text("Header 2 text", "header2")
> card1$append_text("A paragraph of default text")
> card1$append_plot(ggplot(iris, aes(x = Petal.Length)) + geom_histogram())
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
> card2 <- ReportCard$new()
> card2$append_text("Header 2 text", "header2")
> card2$append_text("A paragraph of default text")
> lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean)
> table_res2 <- build_table(lyt, airquality)
Split var [Day] was not character or factor. Converting to factor
> card2$append_table(table_res2)
> card2$append_rcode("2+2", echo = FALSE)
> reporter <- Reporter$new()
> reporter$append_cards(list(card1, card2))
> yaml_l <- list(author = yaml_quoted("NEST"), title = yaml_quoted("Report"),
+ date = yaml_quoted("07/04/2019"), output = list(html_document = list(toc = FALSE)))
> yaml_header <- md_header(as.yaml(yaml_l))
> result_path <- Renderer$new()$render(reporter$get_blocks(), yaml_header)
Error: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).
Execution halted
Flavor: r-release-macos-x86_64
Version: 0.4.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [39s/51s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "teal.reporter"
> library(pkg_name, character.only = TRUE)
> testthat::test_check(pkg_name)
Attaching package: 'testthat'
The following object is masked from 'package:teal.reporter':
Reporter
<simpleError: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).>
<simpleError: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).>
<simpleError: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).>
<simpleError: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).>
<simpleError: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).>
Error in (function (card) : ARTIFICIAL ERROR
Error in (function (card, comment) : ARTIFICIAL ERROR
Error in (function () : ARTIFICIAL ERROR
[ FAIL 6 | WARN 0 | SKIP 0 | PASS 328 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Failure ('test-DownloadReportModule.R:34:7'): download_report_button_srv - render and downlaod a document ──
any(grepl("[.]html", files)) is not TRUE
`actual`: FALSE
`expected`: TRUE
Backtrace:
▆
1. ├─shiny::testServer(...) at test-DownloadReportModule.R:15:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. └─testthat::expect_true(any(grepl("[.]html", files))) at test-DownloadReportModule.R:34:7
── Failure ('test-DownloadReportModule.R:117:3'): report_render_and_compress - valid arguments ──
Expected `report_render_and_compress(reporter, input, knitr_args, temp_dir)` to run without any errors.
ℹ Actually got a <simpleError> with text:
attempt to apply non-function
── Error ('test-DownloadReportModule.R:130:3'): report_render_and_compress - render an html document ──
Error in `session$sendNotification("show", list(html = res$html, action = actionRes$html,
deps = c(res$deps, actionRes$deps), duration = if (!is.null(duration)) duration *
1000, closeButton = closeButton, id = id, type = match.arg(type)))`: attempt to apply non-function
Backtrace:
▆
1. └─teal.reporter:::report_render_and_compress(...) at test-DownloadReportModule.R:130:3
2. └─base::tryCatch(...)
3. └─base (local) tryCatchList(expr, classes, parentenv, handlers)
4. └─base (local) tryCatchOne(...)
5. └─value[[3L]](cond)
6. └─shiny::showNotification(...)
── Failure ('test-PreviewerReportModule.R:32:7'): reporter_previewer_srv - render and downlaod a document ──
any(grepl("[.]html", files)) is not TRUE
`actual`: FALSE
`expected`: TRUE
Backtrace:
▆
1. ├─shiny::testServer(...) at test-PreviewerReportModule.R:14:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. └─testthat::expect_true(any(grepl("[.]html", files))) at test-PreviewerReportModule.R:32:7
── Error ('test-Renderer.R:34:3'): render returns the same path as get_last_output_file ──
Error: pandoc version 1.12.3 or higher is required and was not found (see the help page ?rmarkdown::pandoc_available).
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-Renderer.R:34:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─basename(renderer$render(blocks)) %in% ...
5. ├─base::basename(renderer$render(blocks))
6. └─renderer$render(blocks)
7. ├─base::do.call(rmarkdown::render, args)
8. └─rmarkdown (local) `<fn>`(...)
9. └─rmarkdown::pandoc_available(required_pandoc, error = TRUE)
10. └─rmarkdown:::stop2(paste(msg, collapse = " "))
── Failure ('test-SimpleReporter.R:37:7'): simple_reporter_srv - render and downlaod a document ──
any(grepl("[.]html", files)) is not TRUE
`actual`: FALSE
`expected`: TRUE
Backtrace:
▆
1. ├─shiny::testServer(...) at test-SimpleReporter.R:18:3
2. │ ├─shiny:::withMockContext(...)
3. │ │ ├─shiny::isolate(...)
4. │ │ │ ├─shiny::..stacktraceoff..(...)
5. │ │ │ └─ctx$run(...)
6. │ │ │ ├─promises::with_promise_domain(...)
7. │ │ │ │ └─domain$wrapSync(expr)
8. │ │ │ ├─shiny::withReactiveDomain(...)
9. │ │ │ │ └─promises::with_promise_domain(...)
10. │ │ │ │ └─domain$wrapSync(expr)
11. │ │ │ │ └─base::force(expr)
12. │ │ │ ├─shiny::captureStackTraces(...)
13. │ │ │ │ └─promises::with_promise_domain(...)
14. │ │ │ │ └─domain$wrapSync(expr)
15. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack)
16. │ │ │ └─env$runWith(self, func)
17. │ │ │ └─shiny (local) contextFunc()
18. │ │ │ └─shiny::..stacktraceon..(expr)
19. │ │ ├─shiny::withReactiveDomain(...)
20. │ │ │ └─promises::with_promise_domain(...)
21. │ │ │ └─domain$wrapSync(expr)
22. │ │ │ └─base::force(expr)
23. │ │ └─withr::with_options(...)
24. │ │ └─base::force(code)
25. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env())
26. └─testthat::expect_true(any(grepl("[.]html", files))) at test-SimpleReporter.R:37:7
[ FAIL 6 | WARN 0 | SKIP 0 | PASS 328 ]
Error: Test failures
Execution halted
Flavor: r-release-macos-x86_64