Package check result: NOTE Check: CRAN incoming feasibility, Result: NOTE Maintainer: ‘Hadley Wickham ’ Found the following (possibly) invalid URLs: URL: https://www.amazon.com/Mastering-Regular-Expressions-Jeffrey-Friedl/dp/0596528124 From: inst/doc/regular-expressions.html Status: 500 Message: Internal Server Error Changes to worse in reverse depends: Package: bluebike Check: tests New result: ERROR Running ‘testthat.R’ [4s/64s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(bluebike) > > test_check("bluebike") trying URL 'https://s3.amazonaws.com/hubway-data/202002-bluebikes-tripdata.zip' Content type 'application/zip' length 5018614 bytes (4.8 MB) =========== downloaded 1.1 MB [ FAIL 1 | WARN 2 | SKIP 0 | PASS 8 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-data.R:27:3'): imported trip history dataset is a dataframe ──── Error in `download.file(url = str_c("https://s3.amazonaws.com/hubway-data/", ym, "-bluebikes-tripdata.zip"), destfile = str_c(tempdir(), "/", ym, "-hubway-tripdata.zip"))`: download from 'https://s3.amazonaws.com/hubway-data/202002-bluebikes-tripdata.zip' failed Backtrace: ▆ 1. └─bluebike::import_month_data(2020, 2) at test-data.R:27:3 2. └─utils::download.file(...) [ FAIL 1 | WARN 2 | SKIP 0 | PASS 8 ] Error: Test failures Execution halted Package: doseminer Check: examples New result: ERROR Running examples in ‘doseminer-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: extract_from_prescription > ### Title: Extract dosage information from free-text English-language > ### prescriptions > ### Aliases: extract_from_prescription > > ### ** Examples > > extract_from_prescription(example_prescriptions) Error in `str_replace_all()`: ! `replacement` function must return a vector the same length as the input (8), not length 1. Backtrace: ▆ 1. ├─doseminer::extract_from_prescription(example_prescriptions) 2. │ └─... %>% ... 3. ├─stringr::str_replace_all(...) 4. │ └─stringr:::check_lengths(string, pattern, replacement) 5. │ └─vctrs::vec_size_common(...) 6. ├─stringr::str_replace_all(...) 7. │ └─stringr:::check_lengths(string, pattern, replacement) 8. │ └─vctrs::vec_size_common(...) 9. ├─stringr::str_replace_all(., "[0-9]+ / week", weekly_to_daily) 10. │ └─stringr:::str_transform_all(string, pattern, replacement) 11. │ └─stringr::str_locate_all(string, pattern) 12. │ └─stringr:::check_lengths(string, pattern) 13. │ └─vctrs::vec_size_common(...) 14. ├─stringr::str_replace_all(...) 15. │ └─stringr:::check_lengths(string, pattern, replacement) 16. │ └─vctrs::vec_size_common(...) 17. ├─stringr::str_replace_all(...) 18. │ └─stringr:::check_lengths(string, pattern, replacement) 19. │ └─vctrs::vec_size_common(...) 20. ├─stringr::str_replace_all(., "(?:every|per) week|weekly", "every 7 days") 21. │ └─stringr:::check_lengths(string, pattern, replacement) 22. │ └─vctrs::vec_size_common(...) 23. ├─stringr::str_replace_all(...) 24. │ └─stringr:::check_lengths(string, pattern, replacement) 25. │ └─vctrs::vec_size_common(...) 26. ├─stringr::str_replace_all(...) 27. │ └─stringr:::check_lengths(string, pattern, replacement) 28. │ └─vctrs::vec_size_common(...) 29. ├─stringr::str_replace_all(...) 30. │ └─stringr:::check_lengths(string, pattern, replacement) 31. │ └─vctrs::vec_size_common(...) 32. ├─stringr::str_replace_all(., "times(?:/| a| per) ?", "/ ") 33. │ └─stringr:::check_lengths(string, pattern, replacement) 34. │ └─vctrs::vec_size_common(...) 35. ├─stringr::str_replace_all(...) 36. │ └─stringi::stri_replace_all_regex(...) 37. └─stringr::str_replace_all(...) 38. └─stringr:::str_transform_all(string, pattern, replacement) 39. └─cli::cli_abort(...) 40. └─rlang::abort(...) Execution halted Package: doseminer Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘case_study.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘case_study.Rmd’ --- re-building ‘introduction.Rmd’ using rmarkdown Quitting from introduction.Rmd:84-86 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ NULL ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'introduction.Rmd' failed with diagnostics: `replacement` function must return a vector the same length as the input (8), not length 1. --- failed re-building ‘introduction.Rmd’ SUMMARY: processing the following file failed: ‘introduction.Rmd’ Error: Vignette re-building failed. Execution halted Package: ggtikz Check: tests New result: ERROR Running ‘testthat.R’ [58s/58s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(ggtikz) > > test_check("ggtikz") [ FAIL 15 | WARN 0 | SKIP 0 | PASS 271 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-coord_utils.R:30:5'): coordinates are replaced correctly ─────── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-coord_utils.R:30:5 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─ggtikz:::replace_coords("\\draw (0,0) (1,1);", f) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) ── Error ('test-ggtikz.R:6:5'): the ggtikz helper works ──────────────────────── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz:::tempTikz(test_ggtikz) at test-ggtikz.R:6:5 2. └─ggtikz (local) fun() at tests/testthat/helpers.R:5:5 3. └─ggtikz::ggtikz(p, "\\draw (0,0) -- (1,1);", xy = "plot") at test-ggtikz.R:3:5 4. └─ggtikz:::`+.ggtikzCanvas`(canvas, annotation) 5. ├─ggtikz:::add_annotation(e1, e2) 6. └─ggtikz:::add_annotation.ggtikzCanvas(e1, e2) 7. └─ggtikz:::ggtikzTransform(self, ggtikzAnnotation) 8. └─ggtikz:::transform_tikz(...) 9. └─ggtikz:::replace_coords(tikz_code, replace_func) 10. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 11. └─stringr:::str_transform_all(string, pattern, replacement) 12. └─cli::cli_abort(...) 13. └─rlang::abort(...) ── Error ('test-ggtikz.R:17:5'): the ggtikz helper throws an error when no plot is drawn ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. ├─testthat::expect_error(tempTikz(test_ggtikz_nodraw), "Could not activate the plot panel.") at test-ggtikz.R:17:5 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. └─ggtikz:::tempTikz(test_ggtikz_nodraw) 8. └─ggtikz (local) fun() at tests/testthat/helpers.R:5:5 9. └─ggtikz::ggtikz(...) at test-ggtikz.R:13:5 10. └─ggtikz:::`+.ggtikzCanvas`(canvas, annotation) 11. ├─ggtikz:::add_annotation(e1, e2) 12. └─ggtikz:::add_annotation.ggtikzCanvas(e1, e2) 13. └─ggtikz:::ggtikzTransform(self, ggtikzAnnotation) 14. └─ggtikz:::transform_tikz(...) 15. └─ggtikz:::replace_coords(tikz_code, replace_func) 16. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 17. └─stringr:::str_transform_all(string, pattern, replacement) 18. └─cli::cli_abort(...) 19. └─rlang::abort(...) ── Error ('test-ggtikzCanvas.R:207:5'): drawing annotations does not fail ────── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz:::tempTikz(testfun_ggtikz) at test-ggtikzCanvas.R:207:5 2. └─ggtikz (local) fun() at tests/testthat/helpers.R:5:5 3. ├─base::print(canvas + annot) at test-ggtikzCanvas.R:204:5 4. └─ggtikz:::`+.ggtikzCanvas`(canvas, annot) 5. ├─ggtikz:::add_annotation(e1, e2) 6. └─ggtikz:::add_annotation.ggtikzCanvas(e1, e2) 7. └─ggtikz:::ggtikzTransform(self, ggtikzAnnotation) 8. └─ggtikz:::transform_tikz(...) 9. └─ggtikz:::replace_coords(tikz_code, replace_func) 10. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 11. └─stringr:::str_transform_all(string, pattern, replacement) 12. └─cli::cli_abort(...) 13. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:42:5'): multiple coordinates can be transformed ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (3), not length 1. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-ggtikzTransform.R:42:5 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─ggtikz:::transform_tikz(coords, plus1, plus1) 5. └─ggtikz:::replace_coords(tikz_code, replace_func) 6. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 7. └─stringr:::str_transform_all(string, pattern, replacement) 8. └─cli::cli_abort(...) 9. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:55:5'): multi-line tikz code can be transformed ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (3), not length 1. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-ggtikzTransform.R:55:5 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─ggtikz:::transform_tikz(tikz_code, plus1, plus2) 5. └─ggtikz:::replace_coords(tikz_code, replace_func) 6. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 7. └─stringr:::str_transform_all(string, pattern, replacement) 8. └─cli::cli_abort(...) 9. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:62:5'): coordinates intermixed with radii can be transformed ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (5), not length 1. Backtrace: ▆ 1. └─ggtikz:::transform_tikz(input, plus1, plus1) at test-ggtikzTransform.R:62:5 2. └─ggtikz:::replace_coords(tikz_code, replace_func) 3. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 4. └─stringr:::str_transform_all(string, pattern, replacement) 5. └─cli::cli_abort(...) 6. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:74:5'): tikz_code in annotations is transformed for data reference frames ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz (local) expect_transformed_equal(canvas, annotation, "\\draw (10,1) -- (100,2);") at test-ggtikzTransform.R:74:5 2. └─ggtikz:::ggtikzTransform(canvas, annotation) at test-ggtikzTransform.R:68:5 3. └─ggtikz:::transform_tikz(...) 4. └─ggtikz:::replace_coords(tikz_code, replace_func) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:80:5'): tikz_code in annotations is transformed correctly for discrete scales ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz (local) expect_transformed_equal(canvas, annotation, "\\draw (1,1) -- (2,2);") at test-ggtikzTransform.R:80:5 2. └─ggtikz:::ggtikzTransform(canvas, annotation) at test-ggtikzTransform.R:68:5 3. └─ggtikz:::transform_tikz(...) 4. └─ggtikz:::replace_coords(tikz_code, replace_func) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:87:5'): tikz_code in annotations is not transformed for panel reference frames ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz (local) expect_transformed_equal(canvas, annotation, "\\draw (0.5,0.5) -- (0.5,0.5);") at test-ggtikzTransform.R:87:5 2. └─ggtikz:::ggtikzTransform(canvas, annotation) at test-ggtikzTransform.R:68:5 3. └─ggtikz:::transform_tikz(...) 4. └─ggtikz:::replace_coords(tikz_code, replace_func) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:94:5'): tikz_code in annotations is not transformed for plot reference frames ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz (local) expect_transformed_equal(canvas, annotation, "\\draw (0.5,0.5) -- (0.5,0.5);") at test-ggtikzTransform.R:94:5 2. └─ggtikz:::ggtikzTransform(canvas, annotation) at test-ggtikzTransform.R:68:5 3. └─ggtikz:::transform_tikz(...) 4. └─ggtikz:::replace_coords(tikz_code, replace_func) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:101:5'): tikz_code in annotations is transformed correctly for mixed references ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz (local) expect_transformed_equal(canvas, annotation, "\\draw (0.5,1) -- (0.5,2);") at test-ggtikzTransform.R:101:5 2. └─ggtikz:::ggtikzTransform(canvas, annotation) at test-ggtikzTransform.R:68:5 3. └─ggtikz:::transform_tikz(...) 4. └─ggtikz:::replace_coords(tikz_code, replace_func) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) ── Error ('test-ggtikzTransform.R:109:5'): tikz_code in annotations is transformed only once ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz:::`+.ggtikzCanvas`(canvas, annotation) at test-ggtikzTransform.R:109:5 2. ├─ggtikz:::add_annotation(e1, e2) 3. └─ggtikz:::add_annotation.ggtikzCanvas(e1, e2) 4. └─ggtikz:::ggtikzTransform(self, ggtikzAnnotation) 5. └─ggtikz:::transform_tikz(...) 6. └─ggtikz:::replace_coords(tikz_code, replace_func) 7. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 8. └─stringr:::str_transform_all(string, pattern, replacement) 9. └─cli::cli_abort(...) 10. └─rlang::abort(...) ── Error ('test-ggtikzUninfinite.R:36:5'): removal of Inf from annotations works in a linear scale ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz (local) expect_uninfinite_equal(c1, annot_plot, "\\draw (0,1) -- (1,1);") at test-ggtikzUninfinite.R:36:5 2. └─ggtikz:::ggtikzUninfinite(canvas, annotation) at test-ggtikzUninfinite.R:30:5 3. └─ggtikz:::uninfinite_tikz(...) 4. └─ggtikz:::replace_coords(tikz_code, replace_func) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) ── Error ('test-ggtikzUninfinite.R:49:5'): removal of Inf from annotations works in a log scale ── Error in `stringr::str_replace_all(tikz_code, pattern_coord, replace_func)`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. └─ggtikz (local) expect_uninfinite_equal(c1, annot_plot, "\\draw (0,1) -- (1,1);") at test-ggtikzUninfinite.R:49:5 2. └─ggtikz:::ggtikzUninfinite(canvas, annotation) at test-ggtikzUninfinite.R:30:5 3. └─ggtikz:::uninfinite_tikz(...) 4. └─ggtikz:::replace_coords(tikz_code, replace_func) 5. └─stringr::str_replace_all(tikz_code, pattern_coord, replace_func) 6. └─stringr:::str_transform_all(string, pattern, replacement) 7. └─cli::cli_abort(...) 8. └─rlang::abort(...) [ FAIL 15 | WARN 0 | SKIP 0 | PASS 271 ] Error: Test failures Execution halted Package: huxtable Check: examples New result: ERROR Running examples in ‘huxtable-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: number_format > ### Title: Set how numbers are formatted in cells > ### Aliases: number_format number_format<- set_number_format > ### map_number_format > > ### ** Examples > > ht <- huxtable( + number_format = c( + "Default", + "NA", + "2", + "\"%5.2f\"", + "Pretty", + "Sign" + ), + a = rep(1000, 6), + b = rep(1000.005, 6), + c = rep(0.0001, 6), + d = rep(-1, 6), + e = rep("3.2 (s.e. 1.4)", 6) + ) > > number_format(ht)[3, -1] <- NA > number_format(ht)[4, -1] <- 2 > number_format(ht)[5, -1] <- "%5.2f" > > number_format(ht)[6, -1] <- fmt_pretty() > > number_format(ht)[7, -1] <- list( + function(x) if (x > 0) "+" else "-" + ) > > right_border(ht) <- 1 > bottom_border(ht)[1, ] <- 1 > > ht Error in `stringr::str_replace_all()`: ! Failed to apply `replacement` function. ℹ It must accept a character vector of any length. Caused by error in `if (x > 0) ...`: ! the condition has length > 1 Backtrace: ▆ 1. ├─base (local) ``(x) 2. ├─huxtable:::print.huxtable(x) 3. │ └─huxtable (local) meth(x, ...) 4. │ ├─base::cat(to_screen(ht, ...)) 5. │ └─huxtable::to_screen(ht, ...) 6. │ └─huxtable:::generate_table_display(...) 7. │ └─huxtable:::create_character_matrix(...) 8. │ └─huxtable:::character_matrix(...) 9. │ └─huxtable:::prepare_cell_display_data(ht, markdown) 10. │ └─huxtable:::clean_contents(ht, output_type = if (markdown) "markdown" else "screen") 11. │ └─huxtable:::format_numbers_matrix(contents, ht) 12. │ └─base::vapply(...) 13. │ └─huxtable (local) FUN(X[[i]], ...) 14. │ └─base::vapply(...) 15. │ └─huxtable (local) FUN(X[[i]], ...) 16. │ └─huxtable:::format_numbers(cell, nf[[row, col]]) 17. │ └─stringr::str_replace_all(string, number_regex(), format_numeral) 18. │ └─stringr:::str_transform_all(string, pattern, replacement) 19. │ ├─base::withCallingHandlers(...) 20. │ └─huxtable (local) replacement(old_flat) 21. │ └─numeral_formatter(num_fmt)(num) 22. └─base::.handleSimpleError(...) 23. └─stringr (local) h(simpleError(msg, call)) 24. └─cli::cli_abort(...) 25. └─rlang::abort(...) Execution halted Package: huxtable Check: tests New result: ERROR Running ‘testthat.R’ [85s/84s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(huxtable) > > > we_are_in_R_CMD_check <- TRUE > test_check("huxtable") Attaching package: 'tidyselect' The following object is masked from 'package:testthat': matches Original model not retained as part of coeftest object. i For additional model summary information (r.squared, df, etc.), consider passing `glance.coeftest()` an object where the underlying model has been saved, i.e. `lmtest::coeftest(..., save = TRUE)`. This message is displayed once per session. # weights: 9 (4 variable) initial value 35.155593 iter 10 value 23.131901 final value 23.129234 converged [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. [ FAIL 1 | WARN 3 | SKIP 24 | PASS 1365 ] ══ Skipped tests (24) ══════════════════════════════════════════════════════════ • 0-length tables don't work in flextable yet (1): 'test-flextable.R:81:3' • Awaiting ftExtra improvements (1): 'test-markdown.R:38:3' • Couldn't unload dplyr namespace (2): 'test-miscellaneous.R:50:46', 'test-miscellaneous.R:61:46' • Just too hard to do at the moment. (1): 'test-number-formatting.R:166:3' • On CRAN (19): 'test-latex-dependencies.R:6:3', 'test-latex-dependencies.R:32:3', 'test-latex-dependencies.R:49:3', 'test-markdown.R:54:3', 'test-print.R:155:3', 'test-print.R:260:3', 'test-quick-output.R:58:3', 'test-quick-output.R:74:3', 'test-quick-output.R:87:3', 'test-validate-outputs.R:1:1', 'test-yy-end-to-end.R:100:3', 'test-yy-end-to-end.R:130:3', 'test-yy-end-to-end.R:138:3', 'test-yy-end-to-end.R:144:3', 'test-yy-end-to-end.R:159:3', 'test-yy-end-to-end.R:248:3', 'test-yy-end-to-end.R:264:3', 'test-yy-end-to-end.R:303:3', 'test-yy-end-to-end.R:319:3' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-number-formatting.R:23:3'): number_format works on cells with multiple numbers ── Error in `vctrs::list_unchop(old)`: Can't merge the outer name `a` with a vector of length > 1. Please supply a `.name_spec` specification. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-number-formatting.R:23:3 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─huxtable:::clean_contents(ht, "latex") 5. │ └─huxtable:::format_numbers_matrix(contents, ht) 6. │ └─base::vapply(...) 7. │ └─huxtable (local) FUN(X[[i]], ...) 8. │ └─base::vapply(...) 9. │ └─huxtable (local) FUN(X[[i]], ...) 10. │ └─huxtable:::format_numbers(cell, nf[[row, col]]) 11. │ └─stringr::str_replace_all(string, number_regex(), format_numeral) 12. │ └─stringr:::str_transform_all(string, pattern, replacement) 13. │ └─vctrs::list_unchop(old) 14. └─rlang::abort(message = message) [ FAIL 1 | WARN 3 | SKIP 24 | PASS 1365 ] Deleting unused snapshots: • aarch64-apple-darwin20/validate-outputs/borders-typst.pdf • aarch64-apple-darwin20/validate-outputs/borders.html • aarch64-apple-darwin20/validate-outputs/borders.png • aarch64-apple-darwin20/validate-outputs/borders.rtf • aarch64-apple-darwin20/validate-outputs/borders.svg • aarch64-apple-darwin20/validate-outputs/borders.tex • aarch64-apple-darwin20/validate-outputs/borders.txt • aarch64-apple-darwin20/validate-outputs/cell_spanning-typst.pdf • aarch64-apple-darwin20/validate-outputs/cell_spanning.html • aarch64-apple-darwin20/validate-outputs/cell_spanning.png • aarch64-apple-darwin20/validate-outputs/cell_spanning.rtf • aarch64-apple-darwin20/validate-outputs/cell_spanning.svg • aarch64-apple-darwin20/validate-outputs/cell_spanning.tex • aarch64-apple-darwin20/validate-outputs/cell_spanning.txt • aarch64-apple-darwin20/validate-outputs/content_formatting-typst.pdf • aarch64-apple-darwin20/validate-outputs/content_formatting.html • aarch64-apple-darwin20/validate-outputs/content_formatting.png • aarch64-apple-darwin20/validate-outputs/content_formatting.rtf • aarch64-apple-darwin20/validate-outputs/content_formatting.svg • aarch64-apple-darwin20/validate-outputs/content_formatting.tex • aarch64-apple-darwin20/validate-outputs/content_formatting.txt • aarch64-apple-darwin20/validate-outputs/dimensions-typst.pdf • aarch64-apple-darwin20/validate-outputs/dimensions.html • aarch64-apple-darwin20/validate-outputs/dimensions.png • aarch64-apple-darwin20/validate-outputs/dimensions.rtf • aarch64-apple-darwin20/validate-outputs/dimensions.svg • aarch64-apple-darwin20/validate-outputs/dimensions.tex • aarch64-apple-darwin20/validate-outputs/dimensions.txt • aarch64-apple-darwin20/validate-outputs/table_caption_tests-1.png • aarch64-apple-darwin20/validate-outputs/table_caption_tests-1.svg • aarch64-apple-darwin20/validate-outputs/table_caption_tests-2.png • aarch64-apple-darwin20/validate-outputs/table_caption_tests-2.svg • aarch64-apple-darwin20/validate-outputs/table_caption_tests-3.png • aarch64-apple-darwin20/validate-outputs/table_caption_tests-3.svg • aarch64-apple-darwin20/validate-outputs/table_caption_tests-4.png • aarch64-apple-darwin20/validate-outputs/table_caption_tests-4.svg • aarch64-apple-darwin20/validate-outputs/table_caption_tests-typst.pdf • aarch64-apple-darwin20/validate-outputs/table_caption_tests.html • aarch64-apple-darwin20/validate-outputs/table_caption_tests.rtf • aarch64-apple-darwin20/validate-outputs/table_caption_tests.tex • aarch64-apple-darwin20/validate-outputs/table_caption_tests.txt • aarch64-apple-darwin20/validate-outputs/table_pos_tests-1.png • aarch64-apple-darwin20/validate-outputs/table_pos_tests-1.svg • aarch64-apple-darwin20/validate-outputs/table_pos_tests-2.png • aarch64-apple-darwin20/validate-outputs/table_pos_tests-2.svg • aarch64-apple-darwin20/validate-outputs/table_pos_tests-3.png • aarch64-apple-darwin20/validate-outputs/table_pos_tests-3.svg • aarch64-apple-darwin20/validate-outputs/table_pos_tests-typst.pdf • aarch64-apple-darwin20/validate-outputs/table_pos_tests.html • aarch64-apple-darwin20/validate-outputs/table_pos_tests.rtf • aarch64-apple-darwin20/validate-outputs/table_pos_tests.tex • aarch64-apple-darwin20/validate-outputs/table_pos_tests.txt • aarch64-apple-darwin20/validate-outputs/table_width_tests-1.png • aarch64-apple-darwin20/validate-outputs/table_width_tests-1.svg • aarch64-apple-darwin20/validate-outputs/table_width_tests-2.png • aarch64-apple-darwin20/validate-outputs/table_width_tests-2.svg • aarch64-apple-darwin20/validate-outputs/table_width_tests-3.png • aarch64-apple-darwin20/validate-outputs/table_width_tests-3.svg • aarch64-apple-darwin20/validate-outputs/table_width_tests-typst.pdf • aarch64-apple-darwin20/validate-outputs/table_width_tests.html • aarch64-apple-darwin20/validate-outputs/table_width_tests.rtf • aarch64-apple-darwin20/validate-outputs/table_width_tests.tex • aarch64-apple-darwin20/validate-outputs/table_width_tests.txt • aarch64-apple-darwin20/validate-outputs/text_alignment-typst.pdf • aarch64-apple-darwin20/validate-outputs/text_alignment.html • aarch64-apple-darwin20/validate-outputs/text_alignment.png • aarch64-apple-darwin20/validate-outputs/text_alignment.rtf • aarch64-apple-darwin20/validate-outputs/text_alignment.svg • aarch64-apple-darwin20/validate-outputs/text_alignment.tex • aarch64-apple-darwin20/validate-outputs/text_alignment.txt • aarch64-apple-darwin20/validate-outputs/text_effects-typst.pdf • aarch64-apple-darwin20/validate-outputs/text_effects.html • aarch64-apple-darwin20/validate-outputs/text_effects.png • aarch64-apple-darwin20/validate-outputs/text_effects.rtf • aarch64-apple-darwin20/validate-outputs/text_effects.svg • aarch64-apple-darwin20/validate-outputs/text_effects.tex • aarch64-apple-darwin20/validate-outputs/text_effects.txt • aarch64-apple-darwin20/validate-outputs/text_properties-typst.pdf • aarch64-apple-darwin20/validate-outputs/text_properties.html • aarch64-apple-darwin20/validate-outputs/text_properties.png • aarch64-apple-darwin20/validate-outputs/text_properties.rtf • aarch64-apple-darwin20/validate-outputs/text_properties.svg • aarch64-apple-darwin20/validate-outputs/text_properties.tex • aarch64-apple-darwin20/validate-outputs/text_properties.txt • x86_64-pc-linux-gnu/validate-outputs/borders.html • x86_64-pc-linux-gnu/validate-outputs/borders.rtf • x86_64-pc-linux-gnu/validate-outputs/borders.tex • x86_64-pc-linux-gnu/validate-outputs/borders.txt • x86_64-pc-linux-gnu/validate-outputs/cell_spanning.html • x86_64-pc-linux-gnu/validate-outputs/cell_spanning.rtf • x86_64-pc-linux-gnu/validate-outputs/cell_spanning.tex • x86_64-pc-linux-gnu/validate-outputs/cell_spanning.txt • x86_64-pc-linux-gnu/validate-outputs/content_formatting.html • x86_64-pc-linux-gnu/validate-outputs/content_formatting.rtf • x86_64-pc-linux-gnu/validate-outputs/content_formatting.tex • x86_64-pc-linux-gnu/validate-outputs/content_formatting.txt • x86_64-pc-linux-gnu/validate-outputs/dimensions.html • x86_64-pc-linux-gnu/validate-outputs/dimensions.rtf • x86_64-pc-linux-gnu/validate-outputs/dimensions.tex • x86_64-pc-linux-gnu/validate-outputs/dimensions.txt • x86_64-pc-linux-gnu/validate-outputs/table_caption_tests.html • x86_64-pc-linux-gnu/validate-outputs/table_caption_tests.rtf • x86_64-pc-linux-gnu/validate-outputs/table_caption_tests.tex • x86_64-pc-linux-gnu/validate-outputs/table_caption_tests.txt • x86_64-pc-linux-gnu/validate-outputs/table_width_tests.html • x86_64-pc-linux-gnu/validate-outputs/table_width_tests.rtf • x86_64-pc-linux-gnu/validate-outputs/table_width_tests.tex • x86_64-pc-linux-gnu/validate-outputs/table_width_tests.txt • x86_64-pc-linux-gnu/validate-outputs/text_alignment.html • x86_64-pc-linux-gnu/validate-outputs/text_alignment.rtf • x86_64-pc-linux-gnu/validate-outputs/text_alignment.tex • x86_64-pc-linux-gnu/validate-outputs/text_alignment.txt • x86_64-pc-linux-gnu/validate-outputs/text_effects.html • x86_64-pc-linux-gnu/validate-outputs/text_effects.rtf • x86_64-pc-linux-gnu/validate-outputs/text_effects.tex • x86_64-pc-linux-gnu/validate-outputs/text_effects.txt • x86_64-pc-linux-gnu/validate-outputs/text_properties.html • x86_64-pc-linux-gnu/validate-outputs/text_properties.rtf • x86_64-pc-linux-gnu/validate-outputs/text_properties.tex • x86_64-pc-linux-gnu/validate-outputs/text_properties.txt • x86_64-w64-mingw32/x64/validate-outputs/borders.html • x86_64-w64-mingw32/x64/validate-outputs/borders.rtf • x86_64-w64-mingw32/x64/validate-outputs/borders.tex • x86_64-w64-mingw32/x64/validate-outputs/borders.txt • x86_64-w64-mingw32/x64/validate-outputs/cell_spanning.html • x86_64-w64-mingw32/x64/validate-outputs/cell_spanning.rtf • x86_64-w64-mingw32/x64/validate-outputs/cell_spanning.tex • x86_64-w64-mingw32/x64/validate-outputs/cell_spanning.txt • x86_64-w64-mingw32/x64/validate-outputs/content_formatting.html • x86_64-w64-mingw32/x64/validate-outputs/content_formatting.rtf • x86_64-w64-mingw32/x64/validate-outputs/content_formatting.tex • x86_64-w64-mingw32/x64/validate-outputs/content_formatting.txt • x86_64-w64-mingw32/x64/validate-outputs/dimensions.html • x86_64-w64-mingw32/x64/validate-outputs/dimensions.rtf • x86_64-w64-mingw32/x64/validate-outputs/dimensions.tex • x86_64-w64-mingw32/x64/validate-outputs/dimensions.txt • x86_64-w64-mingw32/x64/validate-outputs/table_caption_tests.html • x86_64-w64-mingw32/x64/validate-outputs/table_caption_tests.rtf • x86_64-w64-mingw32/x64/validate-outputs/table_caption_tests.tex • x86_64-w64-mingw32/x64/validate-outputs/table_caption_tests.txt • x86_64-w64-mingw32/x64/validate-outputs/table_width_tests.html • x86_64-w64-mingw32/x64/validate-outputs/table_width_tests.rtf • x86_64-w64-mingw32/x64/validate-outputs/table_width_tests.tex • x86_64-w64-mingw32/x64/validate-outputs/table_width_tests.txt • x86_64-w64-mingw32/x64/validate-outputs/text_alignment.html • x86_64-w64-mingw32/x64/validate-outputs/text_alignment.rtf • x86_64-w64-mingw32/x64/validate-outputs/text_alignment.tex • x86_64-w64-mingw32/x64/validate-outputs/text_alignment.txt • x86_64-w64-mingw32/x64/validate-outputs/text_effects.html • x86_64-w64-mingw32/x64/validate-outputs/text_effects.rtf • x86_64-w64-mingw32/x64/validate-outputs/text_effects.tex • x86_64-w64-mingw32/x64/validate-outputs/text_effects.txt • x86_64-w64-mingw32/x64/validate-outputs/text_properties.html • x86_64-w64-mingw32/x64/validate-outputs/text_properties.rtf • x86_64-w64-mingw32/x64/validate-outputs/text_properties.tex • x86_64-w64-mingw32/x64/validate-outputs/text_properties.txt Error: Test failures Execution halted Package: latex2exp Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘supported-commands.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘supported-commands.Rmd’ --- re-building ‘using-latex2exp.Rmd’ using rmarkdown Quitting from using-latex2exp.Rmd:55-71 [base-plot] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ NULL ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'using-latex2exp.Rmd' failed with diagnostics: `replacement` function must return a vector the same length as the input (2), not length 1. --- failed re-building ‘using-latex2exp.Rmd’ SUMMARY: processing the following file failed: ‘using-latex2exp.Rmd’ Error: Vignette re-building failed. Execution halted Package: latex2exp Check: tests New result: ERROR Running ‘testthat.R’ [7s/7s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(latex2exp) > > test_check("latex2exp") [ FAIL 1 | WARN 1 | SKIP 0 | PASS 100 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test_simple.R:166:3'): Escaped symbols renders correctly ──────────── Error in `str_replace_all(., "\\\\['\\$\\{\\}\\[\\]\\!\\?\\_\\^]", function(char) { str_c("\\ESCAPED@", as.integer(charToRaw(str_replace_fixed(char, "\\", ""))), "{}") })`: `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. ├─latex2exp:::expect_renders_same(...) at test_simple.R:166:3 2. │ └─latex2exp:::.expect_renders(object, expected_expression, negate = FALSE) at tests/testthat/setup.R:30:3 3. │ └─latex2exp::TeX(act$val) at tests/testthat/setup.R:65:5 4. │ └─latex2exp:::parse_latex(input) 5. │ └─... %>% ... 6. ├─stringr::str_replace_all(., "([^\\\\]?)\\\\\\s", "\\1\\\\@SPACE2{}") 7. │ └─stringr:::check_lengths(string, pattern, replacement) 8. │ └─vctrs::vec_size_common(...) 9. ├─stringr::str_replace_all(., "([^\\\\]?)\\\\;", "\\1\\\\@SPACE2{}") 10. │ └─stringr:::check_lengths(string, pattern, replacement) 11. │ └─vctrs::vec_size_common(...) 12. ├─stringr::str_replace_all(., "([^\\\\]?)\\\\,", "\\1\\\\@SPACE1{}") 13. │ └─stringr:::check_lengths(string, pattern, replacement) 14. │ └─vctrs::vec_size_common(...) 15. └─stringr::str_replace_all(...) 16. └─stringr:::str_transform_all(string, pattern, replacement) 17. └─cli::cli_abort(...) 18. └─rlang::abort(...) [ FAIL 1 | WARN 1 | SKIP 0 | PASS 100 ] Error: Test failures Execution halted Package: nrlR Check: examples New result: ERROR Running examples in ‘nrlR-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: fetch_lineups > ### Title: Fetch NRL Team Lineups > ### Aliases: fetch_lineups > > ### ** Examples > > fetch_lineups(url = "https://www.nrl.com/news/2024/05/07/nrl-team-lists-round-10/") Fetching team lineups from https://www.nrl.com/news/2024/05/07/nrl-team-lists-round-10/ Error in `stringr::str_replace()`: ! `pattern` can not contain NAs. Backtrace: ▆ 1. └─nrlR::fetch_lineups(url = "https://www.nrl.com/news/2024/05/07/nrl-team-lists-round-10/") 2. ├─stringr::str_squish(...) 3. │ └─stringr:::copy_names(...) 4. ├─stringr::str_replace(...) 5. │ └─stringr:::check_lengths(string, pattern, replacement) 6. │ └─vctrs::vec_size_common(...) 7. └─stringr::str_replace(rvest::html_text2(home_node), home_role_full, "") 8. ├─stringr:::type(pattern) 9. └─stringr:::type.character(pattern) 10. └─cli::cli_abort(tr_("{.arg pattern} can not contain NAs."), call = error_call) 11. └─rlang::abort(...) Execution halted Package: phenofit Check: examples New result: ERROR Running examples in ‘phenofit-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: roughFit > ### Title: Rough fitting > ### Aliases: roughFit > ### Keywords: internal > > ### ** Examples > > data("CA_NS6") > d <- CA_NS6 > > nptperyear <- 23 > INPUT <- check_input(d$t, d$y, d$w, + QC_flag = d$QC_flag, + nptperyear = nptperyear, south = FALSE, + maxgap = nptperyear / 4, alpha = 0.02, wmin = 0.2 + ) > # plot_input(INPUT) > > wFUN <- "wTSM" > # all year as a whole > options = list(rFUN = "smooth_wWHIT", wFUN = wFUN, lambda = 10) > brks <- season(INPUT, lambda = 10) > plot_season(INPUT, brks, d) > > brks2 = season_input(INPUT, options) > all.equal(brks2, brks) [1] TRUE > > c(d_fit, info_peak) %<-% roughFit(INPUT) > d_season = find_season.peaks(d_fit, info_peak) > > c(t, ypred) %<-% d_fit[, .(t, ziter2)] > d_season = find_season.default(ypred, t) > all.equal(brks$dt, d_season) [1] TRUE > > # opt <- .options$season > # brks$fit - d_fit # function passed test > > # curve fitting by year > brks_mov <- season_mov(INPUT, + options = list( + rFUN = "smooth_wWHIT", wFUN = wFUN, + lambda = 10, + r_min = 0.05, ypeak_min = 0.05, + verbose = TRUE + ) + ) [season_mov] running 1 ... iloop = 1: lambda = 10.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 2: lambda = 5.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 3: lambda = 2.5, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 [season_mov] running 2 ... iloop = 1: lambda = 10.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 2: lambda = 5.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 3: lambda = 2.5, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 [season_mov] running 3 ... iloop = 1: lambda = 10.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 2: lambda = 5.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 3: lambda = 2.5, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 [season_mov] running 4 ... iloop = 1: lambda = 10.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 2: lambda = 5.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 3: lambda = 2.5, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 [season_mov] running 5 ... iloop = 1: lambda = 10.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 2: lambda = 5.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 3: lambda = 2.5, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 [season_mov] running 6 ... iloop = 1: lambda = 10.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 2: lambda = 5.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 3: lambda = 2.5, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 [season_mov] running 7 ... iloop = 1: lambda = 10.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 2: lambda = 5.0, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 iloop = 3: lambda = 2.5, ntrough_PerYear = 0.00, npeak_PerYear = 0.00 > plot_season(INPUT, brks_mov) > > rfit <- brks2rfit(brks_mov) > r <- get_pheno(rfit) Error in `str_replace_all()`: ! Failed to apply `replacement` function. ℹ It must accept a character vector of any length. Caused by error in `rep()`: ! invalid 'times' argument Backtrace: ▆ 1. ├─phenofit::get_pheno(rfit) 2. ├─phenofit:::get_pheno.rfit(rfit) 3. │ └─... %>% set_names(dt$flag) 4. ├─dplyr::group_map(...) 5. ├─dplyr:::group_map.data.frame(...) 6. │ └─dplyr:::map2(chunks, group_keys, .f, ...) 7. │ └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE) 8. │ └─phenofit (local) ``(dots[[1L]][[1L]], dots[[2L]][[1L]]) 9. │ └─phenofit:::PhenoDeriv.default(values, t, der1, IsPlot = FALSE) 10. │ └─phenofit::findpeaks(...) 11. │ └─xc %<>% str_replace_midzero() 12. ├─phenofit:::str_replace_midzero(.) 13. │ └─str_replace_all(x, "\\++0\\++", . %>% replace("+")) %>% ... 14. ├─stringr::str_replace_all(., "-+0-+", . %>% replace("-")) 15. │ └─stringr:::str_transform_all(string, pattern, replacement) 16. │ ├─base::withCallingHandlers(...) 17. │ └─magrittr (local) replacement(old_flat) 18. │ └─magrittr::freduce(value, `_function_list`) 19. │ ├─base::withVisible(function_list[[k]](value)) 20. │ └─function_list[[k]](value) 21. │ └─phenofit (local) replace(., "-") 22. │ └─base::paste(rep(replacement, nchar(x)), collapse = "") 23. └─base::.handleSimpleError(...) 24. └─stringr (local) h(simpleError(msg, call)) 25. └─cli::cli_abort(...) 26. └─rlang::abort(...) Execution halted Package: phenofit Check: tests New result: ERROR Running ‘testthat.R’ [63s/63s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(phenofit) > > test_check("phenofit") List of 5 $ AG : tibble [6 × 8] (S3: tbl_df/tbl/data.frame) $ Beck : tibble [6 × 7] (S3: tbl_df/tbl/data.frame) $ Elmore: tibble [6 × 8] (S3: tbl_df/tbl/data.frame) $ Gu : tibble [6 × 10] (S3: tbl_df/tbl/data.frame) $ Zhang : tibble [6 × 8] (S3: tbl_df/tbl/data.frame) NULL # A tibble: 6 × 8 flag t0 mn mx rsp a3 rau a5 1 1999_1 -135. 0.201 0.636 0.00932 2.85 0.00852 2 2 2000_1 189. 0.238 0.635 0.0126 2.47 0.00801 3.21 3 2001_1 569. 0.252 0.626 0.0108 2.96 0.00950 2.96 4 2002_1 892. 0.253 0.614 0.0159 2 0.00724 3.08 5 2003_1 1268. 0.236 0.577 0.0121 2.88 0.00723 2.88 6 2004_1 1677. 0.202 0.576 0.00832 2.84 0.00990 3.48 meth R2 NSE R RMSE pvalue n_sim 1: AG 0.9986908 0.9985845 0.9993452 9.940385e-03 4.489925e-65 46 2: Beck 1.0000000 1.0000000 1.0000000 1.389780e-09 0.000000e+00 46 3: Elmore 1.0000000 1.0000000 1.0000000 4.161813e-10 0.000000e+00 46 4: Gu 1.0000000 1.0000000 1.0000000 4.891365e-11 0.000000e+00 46 5: Zhang 1.0000000 1.0000000 1.0000000 5.529073e-06 8.043461e-208 46 $AG formula: mn + (mx - mn) * exp(-((t0 - t) * rsp)^a3) formula: mn + (mx - mn) * exp(-((t - t0) * rau)^a5) pars: t0 mn mx rsp a3 rau a5 nlminb 149.8926 0.1020656 0.7095242 0.009389263 6 0.009367765 6 warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 1.65502e-16); attempting approx solution warning: solve(): system is singular (rcond: 2.19427e-17); attempting approx solution warning: solve(): system is singular (rcond: 1.65502e-16); attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 1.33432e-17); attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 2.38811e-17); attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 2.03034e-17); attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 1.33432e-17); attempting approx solution warning: solve(): system is singular (rcond: 3.31005e-17); attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 3.08395e-17); attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 2.36432e-17); attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular; attempting approx solution warning: solve(): system is singular (rcond: 6.97437e-18); attempting approx solution [ FAIL 2 | WARN 2 | SKIP 0 | PASS 66 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-PhenoExtract.R:63:5'): get_pheno.rfit works ──────────────────── Error in `str_replace_all(x, "\\++0\\++", . %>% replace("+"))`: Failed to apply `replacement` function. ℹ It must accept a character vector of any length. Caused by error in `rep()`: ! invalid 'times' argument Backtrace: ▆ 1. ├─phenofit::get_pheno(rfit) at test-PhenoExtract.R:63:5 2. ├─phenofit:::get_pheno.rfit(rfit) 3. │ └─... %>% set_names(dt$flag) 4. ├─dplyr::group_map(...) 5. ├─dplyr:::group_map.data.frame(...) 6. │ └─dplyr:::map2(chunks, group_keys, .f, ...) 7. │ └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE) 8. │ └─phenofit (local) ``(dots[[1L]][[4L]], dots[[2L]][[4L]]) 9. │ └─phenofit:::PhenoDeriv.default(values, t, der1, IsPlot = FALSE) 10. │ └─phenofit::findpeaks(...) 11. │ └─xc %<>% str_replace_midzero() 12. ├─phenofit:::str_replace_midzero(.) 13. │ ├─str_replace_all(x, "\\++0\\++", . %>% replace("+")) %>% ... 14. │ └─stringr::str_replace_all(x, "\\++0\\++", . %>% replace("+")) 15. │ └─stringr:::str_transform_all(string, pattern, replacement) 16. │ ├─base::withCallingHandlers(...) 17. │ └─magrittr (local) replacement(old_flat) 18. │ └─magrittr::freduce(value, `_function_list`) 19. │ ├─base::withVisible(function_list[[k]](value)) 20. │ └─function_list[[k]](value) 21. │ └─phenofit (local) replace(., "+") 22. │ └─base::paste(rep(replacement, nchar(x)), collapse = "") 23. ├─stringr::str_replace_all(., "-+0-+", . %>% replace("-")) 24. │ └─stringr:::str_transform_all(string, pattern, replacement) 25. │ └─stringr::str_locate_all(string, pattern) 26. │ └─stringr:::check_lengths(string, pattern) 27. │ └─vctrs::vec_size_common(...) 28. └─base::.handleSimpleError(...) 29. └─stringr (local) h(simpleError(msg, call)) 30. └─cli::cli_abort(...) 31. └─rlang::abort(...) ── Error ('test-season.R:34:5'): `season` with smooth_wSG ────────────────────── Error in `str_replace_all(., "-+0-+", . %>% replace("-"))`: Failed to apply `replacement` function. ℹ It must accept a character vector of any length. Caused by error in `rep()`: ! invalid 'times' argument Backtrace: ▆ 1. ├─testthat::expect_silent(brks <- do.call(season, param)) at test-season.R:34:5 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─base::do.call(season, param) 10. ├─phenofit (local) ``(...) 11. │ └─phenofit:::findpeaks_season(...) 12. │ └─phenofit::findpeaks(...) 13. │ └─xc %<>% str_replace_midzero() 14. ├─phenofit:::str_replace_midzero(.) 15. │ └─str_replace_all(x, "\\++0\\++", . %>% replace("+")) %>% ... 16. ├─stringr::str_replace_all(., "-+0-+", . %>% replace("-")) 17. │ └─stringr:::str_transform_all(string, pattern, replacement) 18. │ ├─base::withCallingHandlers(...) 19. │ └─magrittr (local) replacement(old_flat) 20. │ └─magrittr::freduce(value, `_function_list`) 21. │ ├─base::withVisible(function_list[[k]](value)) 22. │ └─function_list[[k]](value) 23. │ └─phenofit (local) replace(., "-") 24. │ └─base::paste(rep(replacement, nchar(x)), collapse = "") 25. └─base::.handleSimpleError(...) 26. └─stringr (local) h(simpleError(msg, call)) 27. └─cli::cli_abort(...) 28. └─rlang::abort(...) [ FAIL 2 | WARN 2 | SKIP 0 | PASS 66 ] Error: Test failures Execution halted Package: psycModel Check: tests New result: ERROR Running ‘testthat.R’ [53s/53s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(psycModel) > > test_check("psycModel") Loading required namespace: gridExtra Loading required namespace: qqplotr Loading required namespace: see [ FAIL 2 | WARN 0 | SKIP 0 | PASS 68 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Failure ('test-model-table.R:15:3'): model_table: linear regression ───────── `lm_1_check` (`actual`) not equal to model_summary[[2]] (`expected`). `names(actual)`: "(Intercept)" "Sepal.Length" `names(expected)`: "" "" ── Failure ('test-model-table.R:16:3'): model_table: linear regression ───────── `lm_2_check` (`actual`) not equal to model_summary[[3]] (`expected`). `names(actual)`: "(Intercept)" "Petal.Length" `names(expected)`: "" "" [ FAIL 2 | WARN 0 | SKIP 0 | PASS 68 ] Error: Test failures Execution halted Package: salty Check: examples New result: ERROR Running examples in ‘salty-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: salt_replace > ### Title: Replace certain patterns into some values in a vector > ### Aliases: salt_replace > > ### ** Examples > > > x <- c("Lorem ipsum dolor sit amet, consectetur adipiscing elit.", + "Nunc finibus tortor a elit eleifend interdum.", + "Maecenas aliquam augue sit amet ultricies placerat.") > > salt_replace(x, replacement_shaker$capitalization, p = 0.5, rep_p = 0.2) Error in `purrr::map2_chr()`: ℹ In index: 1. Caused by error in `stringr::str_replace_all()`: ! `replacement` function must return a vector the same length as the input (47), not length 1. Backtrace: ▆ 1. └─salty::salt_replace(...) 2. └─purrr::map2_chr(...) 3. └─purrr:::map2_("character", .x, .y, .f, ..., .progress = .progress) 4. ├─purrr:::with_indexed_errors(...) 5. │ └─base::withCallingHandlers(...) 6. ├─purrr:::call_with_cleanup(...) 7. └─salty (local) .f(.x[[i]], .y[[i]], ...) 8. └─salty:::selective_replacement(xc, replacements(i = si), rep_p) 9. └─stringr::str_replace_all(x, pattern = patterns, replacement = repfun) 10. └─stringr:::str_transform_all(string, pattern, replacement) 11. └─cli::cli_abort(...) 12. └─rlang::abort(...) Execution halted Package: salty Check: tests New result: ERROR Running ‘testthat.R’ [15s/15s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(salty) > > test_check("salty") Attaching package: 'purrr' The following object is masked from 'package:testthat': is_null [ FAIL 5 | WARN 0 | SKIP 0 | PASS 755 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-replace.R:6:7'): replace ocr_errors ──────────────────────────── Error in `map(battery, function(x) { salt_replace(x, replacements = selected_shaker, p = 0.5, rep_p = 1) })`: ℹ In index: 1. ℹ With name: fake_names. Caused by error in `purrr::map2_chr()`: ℹ In index: 2. Caused by error in `stringr::str_replace_all()`: ! `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. ├─purrr::map(...) at test-replace.R:5:5 2. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress) 3. │ ├─purrr:::with_indexed_errors(...) 4. │ │ └─base::withCallingHandlers(...) 5. │ ├─purrr:::call_with_cleanup(...) 6. │ └─salty (local) .f(.x[[i]], ...) 7. │ └─salty::salt_replace(...) at test-replace.R:6:7 8. │ └─purrr::map2_chr(...) 9. │ └─purrr:::map2_("character", .x, .y, .f, ..., .progress = .progress) 10. │ ├─purrr:::with_indexed_errors(...) 11. │ │ └─base::withCallingHandlers(...) 12. │ ├─purrr:::call_with_cleanup(...) 13. │ └─salty (local) .f(.x[[i]], .y[[i]], ...) 14. │ └─salty:::selective_replacement(xc, replacements(i = si), rep_p) 15. │ └─stringr::str_replace_all(x, pattern = patterns, replacement = repfun) 16. │ └─stringr:::str_transform_all(string, pattern, replacement) 17. │ └─cli::cli_abort(...) 18. │ └─rlang::abort(...) 19. │ └─rlang:::signal_abort(cnd, .file) 20. │ └─base::signalCondition(cnd) 21. ├─purrr (local) ``(``) 22. │ └─cli::cli_abort(...) 23. │ └─rlang::abort(...) 24. │ └─rlang:::signal_abort(cnd, .file) 25. │ └─base::signalCondition(cnd) 26. └─purrr (local) ``(``) 27. └─cli::cli_abort(...) 28. └─rlang::abort(...) ── Error ('test-replace.R:6:7'): replace capitalization ──────────────────────── Error in `map(battery, function(x) { salt_replace(x, replacements = selected_shaker, p = 0.5, rep_p = 1) })`: ℹ In index: 1. ℹ With name: fake_names. Caused by error in `purrr::map2_chr()`: ℹ In index: 1. Caused by error in `stringr::str_replace_all()`: ! `replacement` function must return a vector the same length as the input (14), not length 1. Backtrace: ▆ 1. ├─purrr::map(...) at test-replace.R:5:5 2. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress) 3. │ ├─purrr:::with_indexed_errors(...) 4. │ │ └─base::withCallingHandlers(...) 5. │ ├─purrr:::call_with_cleanup(...) 6. │ └─salty (local) .f(.x[[i]], ...) 7. │ └─salty::salt_replace(...) at test-replace.R:6:7 8. │ └─purrr::map2_chr(...) 9. │ └─purrr:::map2_("character", .x, .y, .f, ..., .progress = .progress) 10. │ ├─purrr:::with_indexed_errors(...) 11. │ │ └─base::withCallingHandlers(...) 12. │ ├─purrr:::call_with_cleanup(...) 13. │ └─salty (local) .f(.x[[i]], .y[[i]], ...) 14. │ └─salty:::selective_replacement(xc, replacements(i = si), rep_p) 15. │ └─stringr::str_replace_all(x, pattern = patterns, replacement = repfun) 16. │ └─stringr:::str_transform_all(string, pattern, replacement) 17. │ └─cli::cli_abort(...) 18. │ └─rlang::abort(...) 19. │ └─rlang:::signal_abort(cnd, .file) 20. │ └─base::signalCondition(cnd) 21. ├─purrr (local) ``(``) 22. │ └─cli::cli_abort(...) 23. │ └─rlang::abort(...) 24. │ └─rlang:::signal_abort(cnd, .file) 25. │ └─base::signalCondition(cnd) 26. └─purrr (local) ``(``) 27. └─cli::cli_abort(...) 28. └─rlang::abort(...) ── Error ('test-wrappers.R:38:7'): replace capitalization ────────────────────── Error in `map(battery, function(x) { wrapper(x, p = 0.5, rep_p = 1) })`: ℹ In index: 1. ℹ With name: fake_names. Caused by error in `purrr::map2_chr()`: ℹ In index: 1. Caused by error in `stringr::str_replace_all()`: ! `replacement` function must return a vector the same length as the input (13), not length 1. Backtrace: ▆ 1. ├─purrr::map(...) at test-wrappers.R:37:5 2. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress) 3. │ ├─purrr:::with_indexed_errors(...) 4. │ │ └─base::withCallingHandlers(...) 5. │ ├─purrr:::call_with_cleanup(...) 6. │ └─salty (local) .f(.x[[i]], ...) 7. │ └─salty (local) wrapper(x, p = 0.5, rep_p = 1) at test-wrappers.R:38:7 8. │ └─salty::salt_replace(...) 9. │ └─purrr::map2_chr(...) 10. │ └─purrr:::map2_("character", .x, .y, .f, ..., .progress = .progress) 11. │ ├─purrr:::with_indexed_errors(...) 12. │ │ └─base::withCallingHandlers(...) 13. │ ├─purrr:::call_with_cleanup(...) 14. │ └─salty (local) .f(.x[[i]], .y[[i]], ...) 15. │ └─salty:::selective_replacement(xc, replacements(i = si), rep_p) 16. │ └─stringr::str_replace_all(x, pattern = patterns, replacement = repfun) 17. │ └─stringr:::str_transform_all(string, pattern, replacement) 18. │ └─cli::cli_abort(...) 19. │ └─rlang::abort(...) 20. │ └─rlang:::signal_abort(cnd, .file) 21. │ └─base::signalCondition(cnd) 22. ├─purrr (local) ``(``) 23. │ └─cli::cli_abort(...) 24. │ └─rlang::abort(...) 25. │ └─rlang:::signal_abort(cnd, .file) 26. │ └─base::signalCondition(cnd) 27. └─purrr (local) ``(``) 28. └─cli::cli_abort(...) 29. └─rlang::abort(...) ── Error ('test-wrappers.R:38:7'): replace decimal_commas ────────────────────── Error in `map(battery, function(x) { wrapper(x, p = 0.5, rep_p = 1) })`: ℹ In index: 2. ℹ With name: null_names. Caused by error in `purrr::map2_chr()`: ℹ In index: 12. Caused by error in `stringr::str_replace_all()`: ! `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. ├─purrr::map(...) at test-wrappers.R:37:5 2. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress) 3. │ ├─purrr:::with_indexed_errors(...) 4. │ │ └─base::withCallingHandlers(...) 5. │ ├─purrr:::call_with_cleanup(...) 6. │ └─salty (local) .f(.x[[i]], ...) 7. │ └─salty (local) wrapper(x, p = 0.5, rep_p = 1) at test-wrappers.R:38:7 8. │ └─salty::salt_replace(...) 9. │ └─purrr::map2_chr(...) 10. │ └─purrr:::map2_("character", .x, .y, .f, ..., .progress = .progress) 11. │ ├─purrr:::with_indexed_errors(...) 12. │ │ └─base::withCallingHandlers(...) 13. │ ├─purrr:::call_with_cleanup(...) 14. │ └─salty (local) .f(.x[[i]], .y[[i]], ...) 15. │ └─salty:::selective_replacement(xc, replacements(i = si), rep_p) 16. │ └─stringr::str_replace_all(x, pattern = patterns, replacement = repfun) 17. │ └─stringr:::str_transform_all(string, pattern, replacement) 18. │ └─cli::cli_abort(...) 19. │ └─rlang::abort(...) 20. │ └─rlang:::signal_abort(cnd, .file) 21. │ └─base::signalCondition(cnd) 22. ├─purrr (local) ``(``) 23. │ └─cli::cli_abort(...) 24. │ └─rlang::abort(...) 25. │ └─rlang:::signal_abort(cnd, .file) 26. │ └─base::signalCondition(cnd) 27. └─purrr (local) ``(``) 28. └─cli::cli_abort(...) 29. └─rlang::abort(...) ── Error ('test-wrappers.R:38:7'): replace ocr ───────────────────────────────── Error in `map(battery, function(x) { wrapper(x, p = 0.5, rep_p = 1) })`: ℹ In index: 1. ℹ With name: fake_names. Caused by error in `purrr::map2_chr()`: ℹ In index: 9. Caused by error in `stringr::str_replace_all()`: ! `replacement` function must return a vector the same length as the input (2), not length 1. Backtrace: ▆ 1. ├─purrr::map(...) at test-wrappers.R:37:5 2. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress) 3. │ ├─purrr:::with_indexed_errors(...) 4. │ │ └─base::withCallingHandlers(...) 5. │ ├─purrr:::call_with_cleanup(...) 6. │ └─salty (local) .f(.x[[i]], ...) 7. │ └─salty (local) wrapper(x, p = 0.5, rep_p = 1) at test-wrappers.R:38:7 8. │ └─salty::salt_replace(x, replacement_shaker$ocr_errors, p, rep_p) 9. │ └─purrr::map2_chr(...) 10. │ └─purrr:::map2_("character", .x, .y, .f, ..., .progress = .progress) 11. │ ├─purrr:::with_indexed_errors(...) 12. │ │ └─base::withCallingHandlers(...) 13. │ ├─purrr:::call_with_cleanup(...) 14. │ └─salty (local) .f(.x[[i]], .y[[i]], ...) 15. │ └─salty:::selective_replacement(xc, replacements(i = si), rep_p) 16. │ └─stringr::str_replace_all(x, pattern = patterns, replacement = repfun) 17. │ └─stringr:::str_transform_all(string, pattern, replacement) 18. │ └─cli::cli_abort(...) 19. │ └─rlang::abort(...) 20. │ └─rlang:::signal_abort(cnd, .file) 21. │ └─base::signalCondition(cnd) 22. ├─purrr (local) ``(``) 23. │ └─cli::cli_abort(...) 24. │ └─rlang::abort(...) 25. │ └─rlang:::signal_abort(cnd, .file) 26. │ └─base::signalCondition(cnd) 27. └─purrr (local) ``(``) 28. └─cli::cli_abort(...) 29. └─rlang::abort(...) [ FAIL 5 | WARN 0 | SKIP 0 | PASS 755 ] Error: Test failures Execution halted Package: sdbuildR Check: tests New result: ERROR Running ‘testthat.R’ [127s/128s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(sdbuildR) Attaching package: 'sdbuildR' The following objects are masked from 'package:stats': simulate, step The following object is masked from 'package:utils': debugger > > test_check("sdbuildR") Potentially problematic: * These variables have an equation of 0: - Recovered No problems detected! Potentially problematic: Problems: Potentially problematic: * Your model has no flows. No problems detected! Potentially problematic: No problems detected! Potentially problematic: Problems: Potentially problematic: * Your model has no flows. No problems detected! Potentially problematic: Problems: Potentially problematic: * Your model has no flows. * These variables have an equation of 0: - a Problems: Potentially problematic: * Your model has no flows. * These variables have an equation of 0: - a Your model contains: * 3 Stocks: Susceptible, Infected, Recovered * 2 Flows: Infection_Rate, Recovery_Rate * 4 Constants: Beta, Total_Population, Effective_Contact_Rate, Delay * 1 Auxiliaries: Lambda * 0 Graphical Functions * 0 Custom model units * 0 Macros Simulation time: 0.0 to 20.0 weeks (dt = 0.01) Simulation settings: solver euler in R This model uses an earlier version of Insight Maker (36), in which links were bi-directional by default. This may cause issues in translating the model. Please choose 'Clone Insight' in Insight Maker, and provide the URL to the updated model. This model uses an earlier version of Insight Maker (36), in which links were bi-directional by default. This may cause issues in translating the model. Please choose 'Clone Insight' in Insight Maker, and provide the URL to the updated model. This model uses an earlier version of Insight Maker (36), in which links were bi-directional by default. This may cause issues in translating the model. Please choose 'Clone Insight' in Insight Maker, and provide the URL to the updated model. This model uses an earlier version of Insight Maker (36), in which links were bi-directional by default. This may cause issues in translating the model. Please choose 'Clone Insight' in Insight Maker, and provide the URL to the updated model. Error in fallbackOnDefaultJuliaupPath() : Julia could not be found. Julia needs to be installed and findable for the "JuliaConnectoR" package to work. After installing Julia, the best way make Julia findable is to put the folder containing the Julia executable into the PATH environment variable. For more information, see the help topic ?`Julia-Setup`. Julia not found. Install Julia from https://julialang.org/install/ [ FAIL 4 | WARN 0 | SKIP 30 | PASS 915 ] ══ Skipped tests (30) ══════════════════════════════════════════════════════════ • On CRAN (30): 'test-assemble_script_julia.R:4:3', 'test-assemble_script_julia.R:29:3', 'test-assemble_script_julia.R:53:3', 'test-assemble_script_julia.R:86:3', 'test-assemble_script_julia.R:102:3', 'test-assemble_script_julia.R:191:3', 'test-assemble_script_julia.R:213:3', 'test-assemble_script_julia.R:230:3', 'test-assemble_script_julia.R:253:3', 'test-assemble_script_julia.R:267:3', 'test-conv_julia.R:245:3', 'test-custom_func.R:114:3', 'test-custom_func.R:186:3', 'test-custom_func.R:306:3', 'test-custom_func.R:383:3', 'test-custom_func.R:442:3', 'test-ensemble.R:2:3', 'test-ensemble.R:141:3', 'test-ensemble.R:168:3', 'test-ensemble.R:278:3', 'test-ensemble.R:303:3', 'test-ensemble.R:342:3', 'test-ensemble.R:388:3', 'test-insightmaker_to_sfm.R:3:3', 'test-insightmaker_to_sfm.R:141:3', 'test-julia_vs_r.R:2:3', 'test-julia_vs_r.R:161:3', 'test-simulate.R:76:3', 'test-use_julia.R:11:3', 'test-visualise.R:2:3' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-build.R:675:3'): model_units() works ─────────────────────────── Error in `stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific)`: Failed to apply `replacement` function. i It must accept a character vector of any length. Caused by error in `if (nchar(format(num, scientific = FALSE)) > digits_max) ...`: ! the condition has length > 1 Backtrace: ▆ 1. ├─sdbuildR::model_units(xmile(), c("abc", "def"), "100 kilograms/40 sec") at test-build.R:675:3 2. │ └─base::vapply(eqn, clean_unit, character(1), regex_units, USE.NAMES = FALSE) 3. │ └─sdbuildR (local) FUN(X[[i]], ...) 4. │ └─sdbuildR:::scientific_notation(x_new, task = "add") 5. │ └─stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific) 6. │ └─stringr:::str_transform_all(string, pattern, replacement) 7. │ ├─base::withCallingHandlers(...) 8. │ └─sdbuildR (local) replacement(old_flat) 9. └─base::.handleSimpleError(...) 10. └─stringr (local) h(simpleError(msg, call)) 11. └─cli::cli_abort(...) 12. └─rlang::abort(...) ── Error ('test-conv_julia.R:398:3'): clean units for Julia ──────────────────── Error in `stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific)`: Failed to apply `replacement` function. i It must accept a character vector of any length. Caused by error in `if (nchar(format(num, scientific = FALSE)) > digits_max) ...`: ! the condition has length > 1 Backtrace: ▆ 1. ├─sdbuildR:::clean_unit(x, regex_units) at test-conv_julia.R:398:3 2. │ └─sdbuildR:::scientific_notation(x_new, task = "add") 3. │ └─stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific) 4. │ └─stringr:::str_transform_all(string, pattern, replacement) 5. │ ├─base::withCallingHandlers(...) 6. │ └─sdbuildR (local) replacement(old_flat) 7. └─base::.handleSimpleError(...) 8. └─stringr (local) h(simpleError(msg, call)) 9. └─cli::cli_abort(...) 10. └─rlang::abort(...) ── Error ('test-conv_julia.R:446:3'): clean_unit_in_u() works ────────────────── Error in `stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific)`: Failed to apply `replacement` function. i It must accept a character vector of any length. Caused by error in `if (nchar(format(num, scientific = FALSE)) > digits_max) ...`: ! the condition has length > 1 Backtrace: ▆ 1. ├─sdbuildR:::clean_unit_in_u(...) at test-conv_julia.R:446:3 2. │ ├─base::paste0(...) 3. │ └─base::vapply(...) 4. │ └─sdbuildR (local) FUN(X[[i]], ...) 5. │ └─sdbuildR:::scientific_notation(x_new, task = "add") 6. │ └─stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific) 7. │ └─stringr:::str_transform_all(string, pattern, replacement) 8. │ ├─base::withCallingHandlers(...) 9. │ └─sdbuildR (local) replacement(old_flat) 10. └─base::.handleSimpleError(...) 11. └─stringr (local) h(simpleError(msg, call)) 12. └─cli::cli_abort(...) 13. └─rlang::abort(...) ── Error ('test-conv_julia.R:723:3'): adding scientific notation ─────────────── Error in `stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific)`: Failed to apply `replacement` function. i It must accept a character vector of any length. Caused by error in `if (nchar(format(num, scientific = FALSE)) > digits_max) ...`: ! the condition has length > 1 Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-conv_julia.R:723:3 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─sdbuildR:::scientific_notation("hiding 1e+23", task = "add") 5. │ └─stringr::str_replace_all(eqn, pattern = pattern, replacement = reformat_scientific) 6. │ └─stringr:::str_transform_all(string, pattern, replacement) 7. │ ├─base::withCallingHandlers(...) 8. │ └─sdbuildR (local) replacement(old_flat) 9. └─base::.handleSimpleError(...) 10. └─stringr (local) h(simpleError(msg, call)) 11. └─cli::cli_abort(...) 12. └─rlang::abort(...) [ FAIL 4 | WARN 0 | SKIP 30 | PASS 915 ] Error: Test failures Execution halted Package: zipangu Check: tests New result: ERROR Running ‘testthat.R’ [6s/6s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(zipangu) > > test_check("zipangu") [ FAIL 1 | WARN 0 | SKIP 2 | PASS 143 ] ══ Skipped tests (2) ═══════════════════════════════════════════════════════════ • On CRAN (2): 'test-jholiday.R:75:3', 'test-zipcode.R:90:3' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-address.R:82:3'): address separate works ─────────────────────── Error in `purrr::map(str, function(str) { split_pref <- stringr::str_split(str, stringr::regex("(?<=(東京都|道|府|県))"), n = 2, simplify = TRUE) %>% stringr::str_subset(".{1}", negate = FALSE) if (length(split_pref) == 1L) { if (is_prefecture(str)) { split_pref <- c(split_pref, NA_character_) } else { if (stringr::str_detect(split_pref, city_name_regex)) { split_pref <- c(NA_character_, split_pref) } else { split_pref <- c(NA_character_, NA_character_) } } } res <- list(prefecture = split_pref[1]) if (length(split_pref[2] %>% stringr::str_split(city_name_regex, n = 2, simplify = TRUE) %>% stringr::str_subset(".{1}", negate = FALSE)) == 0L) { res <- res %>% purrr::list_merge(city = split_pref[2] %>% dplyr::if_else(is_address_block(.), stringr::str_remove(., "((土地区画|街区).+)") %>% stringr::str_remove("土地区画|街区"), .) %>% stringr::str_replace("(.市)(.+町.+)", "\\1") %>% stringr::str_replace(city_name_regex, replacement = "\\1")) } else { res <- res %>% purrr::list_merge(city = split_pref[2] %>% dplyr::if_else(is_address_block(.), stringr::str_remove(., "((土地区画|街区).+)") %>% stringr::str_remove("土地区画|街区"), .) %>% stringr::str_replace(paste0(city_name_regex, "(.+)"), replacement = "\\1")) } res <- res %>% purrr::list_merge(street = split_pref[2] %>% stringr::str_remove(res %>% purrr::pluck("city"))) res %>% purrr::map(~dplyr::if_else(.x == "", NA_character_, .x)) })`: ℹ In index: 1. Caused by error in `str_replace()`: ! `pattern` can not contain NAs. [ FAIL 1 | WARN 0 | SKIP 2 | PASS 143 ] Error: Test failures Execution halted