Running 'spelling.R' [0s]
  Running 'testthat.R' [150s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(visR)
  > library(vdiffr)
  > library(survival)
  > 
  > test_check("visR")
  [ FAIL 12 | WARN 28 | SKIP 27 | PASS 988 ]
  
  ══ Skipped tests (27) ══════════════════════════════════════════════════════════
  • On CRAN (27): 'test-add_CI.R:30:3', 'test-add_CI.R:45:3',
    'test-add_CI.R:65:3', 'test-add_CI.R:95:3', 'test-add_CI.R:124:3',
    'test-add_CI.R:144:3', 'test-add_CNSR.R:34:3', 'test-add_CNSR.R:47:3',
    'test-add_CNSR.R:60:3', 'test-add_CNSR.R:78:3', 'test-add_CNSR.R:95:3',
    'test-add_CNSR.R:112:3', 'test-add_highlight.R:107:3',
    'test-add_highlight.R:151:3', 'test-add_highlight.R:281:3',
    'test-add_risktable.R:81:3', 'test-add_risktable.R:93:3',
    'test-add_risktable.R:204:3', 'test-add_risktable.R:214:3',
    'test-stat_stepribbon.R:32:3', 'test-stat_stepribbon.R:60:3',
    'test-stat_stepribbon.R:94:3', 'test-stat_stepribbon.R:117:3',
    'test-utils_visR.R:135:3', 'test-utils_visR.R:146:3',
    'test-visr_survfit.R:528:3', 'test-watchdog_testfiles.R:14:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-add_highlight.R:41:3'): T1.1 No error when `add_highlight` is called on a `ggsurvfit` object. ──
  `.` threw an error.
  Message: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─gg %>% visR::add_highlight(strata = "Placebo") %>% ... at test-add_highlight.R:41:3
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::add_highlight(., strata = "Placebo")
    8. └─visR:::add_highlight.ggsurvfit(., strata = "Placebo")
    9.   └─base::sapply(...)
   10.     └─base::lapply(X = X, FUN = FUN, ...)
   11.       └─visR (local) FUN(X[[i]], ...)
  ── Error ('test-add_highlight.R:87:3'): T1.5 The function returns a modified object of type `ggsurvfit`. ──
  Error in `FUN(X[[i]], ...)`: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Backtrace:
      ▆
   1. ├─gg %>% add_highlight("Placebo") at test-add_highlight.R:87:3
   2. ├─visR::add_highlight(., "Placebo")
   3. └─visR:::add_highlight.ggsurvfit(., "Placebo")
   4.   └─base::sapply(...)
   5.     └─base::lapply(X = X, FUN = FUN, ...)
   6.       └─visR (local) FUN(X[[i]], ...)
  ── Failure ('test-add_highlight.R:103:3'): T2.1 No error when `strata` is a character string found in the plot strata. ──
  `.` threw an error.
  Message: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─gg %>% visR::add_highlight(strata = "Placebo") %>% ... at test-add_highlight.R:103:3
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::add_highlight(., strata = "Placebo")
    8. └─visR:::add_highlight.ggsurvfit(., strata = "Placebo")
    9.   └─base::sapply(...)
   10.     └─base::lapply(X = X, FUN = FUN, ...)
   11.       └─visR (local) FUN(X[[i]], ...)
  ── Failure ('test-add_highlight.R:120:3'): T2.2 An error when `strata` is a character string not found in the plot strata. ──
  `.` threw an error with unexpected message.
  Expected match: "The strata you specified has not been found in the provided plot.\n  Available strata: Placebo, Xanomeline High Dose, Xanomeline Low Dose\n  Please adjust and rerun."
  Actual message: "The strata you specified has not been found in the provided plot.\n  Available strata: NULL, NULL, NULL\n  Please adjust and rerun."
  Backtrace:
       ▆
    1. ├─gg %>% visR::add_highlight(strata = "visR") %>% ... at test-add_highlight.R:120:3
    2. ├─testthat::expect_error(., expected_error)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::add_highlight(., strata = "visR")
    8. └─visR:::add_highlight.ggsurvfit(., strata = "visR")
    9.   └─base::sapply(...)
   10.     └─base::lapply(X = X, FUN = FUN, ...)
   11.       └─visR (local) FUN(X[[i]], ...)
  ── Failure ('test-add_highlight.R:143:3'): T2.4 No error when `strata` is a `list` or `vector` of character strings found in the plot strata. ──
  `.` threw an error.
  Message: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─gg %>% visR::add_highlight(strata = strata_list) %>% ... at test-add_highlight.R:143:3
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::add_highlight(., strata = strata_list)
    8. └─visR:::add_highlight.ggsurvfit(., strata = strata_list)
    9.   └─base::sapply(...)
   10.     └─base::lapply(X = X, FUN = FUN, ...)
   11.       └─visR (local) FUN(X[[i]], ...)
  ── Failure ('test-add_highlight.R:147:3'): T2.4 No error when `strata` is a `list` or `vector` of character strings found in the plot strata. ──
  `.` threw an error.
  Message: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─gg %>% visR::add_highlight(strata = strata_vector) %>% ... at test-add_highlight.R:147:3
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::add_highlight(., strata = strata_vector)
    8. └─visR:::add_highlight.ggsurvfit(., strata = strata_vector)
    9.   └─base::sapply(...)
   10.     └─base::lapply(X = X, FUN = FUN, ...)
   11.       └─visR (local) FUN(X[[i]], ...)
  ── Failure ('test-add_highlight.R:231:3'): T3.1 No error when `bg_alpha` is a `numberic`. ──
  `.` threw an error.
  Message: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-add_highlight.R:231:3
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::add_highlight(., strata = "Placebo", bg_alpha = 0.2)
    8. └─visR:::add_highlight.ggsurvfit(., strata = "Placebo", bg_alpha = 0.2)
    9.   └─base::sapply(...)
   10.     └─base::lapply(X = X, FUN = FUN, ...)
   11.       └─visR (local) FUN(X[[i]], ...)
  ── Error ('test-add_highlight.R:314:3'): T4.1 The function adds the alpha channel to the hex-encoded colour. ──
  Error in `FUN(X[[i]], ...)`: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Backtrace:
      ▆
   1. ├─gg %>% visR::add_highlight(strata = "Placebo") at test-add_highlight.R:314:3
   2. ├─visR::add_highlight(., strata = "Placebo")
   3. └─visR:::add_highlight.ggsurvfit(., strata = "Placebo")
   4.   └─base::sapply(...)
   5.     └─base::lapply(X = X, FUN = FUN, ...)
   6.       └─visR (local) FUN(X[[i]], ...)
  ── Error ('test-add_highlight.R:339:3'): T4.2 The function also reduces the alpha value of the confidence intervals introduced by `add_CI`. ──
  Error in `FUN(X[[i]], ...)`: The strata you specified has not been found in the provided plot.
    Available strata: NULL, NULL, NULL
    Please adjust and rerun.
  Backtrace:
      ▆
   1. ├─gg %>% visR::add_highlight(strata = "Placebo", bg_alpha = bg_alpha) at test-add_highlight.R:339:3
   2. ├─visR::add_highlight(., strata = "Placebo", bg_alpha = bg_alpha)
   3. └─visR:::add_highlight.ggsurvfit(., strata = "Placebo", bg_alpha = bg_alpha)
   4.   └─base::sapply(...)
   5.     └─base::lapply(X = X, FUN = FUN, ...)
   6.       └─visR (local) FUN(X[[i]], ...)
  ── Failure ('test-apply_theme.R:539:3'): T1.19 The named list is used in the legend title. ──
  get_legend_title(gg) not equal to "SEX".
  target is NULL, current is character
  ── Failure ('test-apply_theme.R:559:3'): T1.19 The named list is used in the legend title. ──
  get_legend_title(gg) not equal to "Sex, ph.ecog".
  target is NULL, current is character
  ── Failure ('test-utils_visR.R:109:3'): T2.1 Columns are added to the grob-converted plot. ──
  dim(grob_orig)[2] == dim(pltlist[[2]])[2] is not FALSE
  
  `actual`:   TRUE 
  `expected`: FALSE
  
  [ FAIL 12 | WARN 28 | SKIP 27 | PASS 988 ]
  Error: Test failures
  In addition: Warning message:
  In assign(name, f, envir = environment()) :
    closing unused connection 4 (https://raw.githubusercontent.com/vntkumar8/covid-survival/main/data/final.csv)
  Execution halted