R Under development (unstable) (2025-12-07 r89119 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # 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(plotor)
> 
> test_check("plotor")
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 68 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-plot_or.R:97:3'): `table_or()` and `plot_or()` handle issues gracefully ──
<dplyr:::mutate_error/rlang_error/error/condition>
Error in `dplyr::mutate(medicaldata::strep_tb, arm = forcats::fct(as.character(arm), levels = c("Control", "Streptomycin")), dose_strep_g = as.numeric(dose_strep_g), dose_PAS_g = as.numeric(dose_PAS_g), gender = forcats::fct_infreq(gender), baseline_condition = forcats::fct(as.character(baseline_condition), levels = c("1_Good", "2_Fair", "3_Poor")), baseline_temp = forcats::fct(dplyr::case_match(baseline_temp, "1_<=98.9F/37.2C" ~ "<= 37.2C", "2_99-99.9F/37.3-37.7C" ~ "37.3 - 37.7C", "2_99-99.9F/37.3-37.7C/37.3-37.7C" ~      "37.3 - 37.7C", "3_100-100.9F/37.8-38.2C" ~ "37.8 - 38.2C", "3_100-100.9F/37.8-38.2C/37.8-38.2C" ~ "37.8 - 38.2C", "4_>=101F/38.3C" ~ ">= 38.3C"), levels = c("<= 37.2C", "37.3 - 37.7C", "37.8 - 38.2C", ">= 38.3C")), baseline_esr = forcats::fct_na_value_to_level(forcats::fct(dplyr::case_match(baseline_esr, "2_11-20" ~ "11-20", "3_21-50" ~ "21-50", "4_51+" ~ "51+", "<NA>" ~ NA), levels = c("11-20", "21-50", "51+")), level = "NA"), baseline_cavitation = forcats::fct(baseline_cavitation, levels = c("no",      "yes")), radiologic_6m = forcats::fct(radiologic_6m, levels = c("1_Death", "2_Considerable_deterioration", "3_Moderate_deterioration", "4_No_change", "5_Moderate_improvement", "6_Considerable_improvement")))`: i In argument: `baseline_temp = forcats::fct(...)`.
Caused by error in `dplyr::case_match()`:
! Can't convert from `..1 (left)` <character> to <factor<ae9a9>> due to loss of generality.
* Locations: 1

[ FAIL 1 | WARN 0 | SKIP 0 | PASS 68 ]
Error:
! Test failures.
Execution halted