1
0
mirror of https://github.com/msberends/AMR.git synced 2026-03-25 22:56:03 +01:00

(v3.0.1.9038) fix format inline

This commit is contained in:
2026-03-22 22:16:59 +01:00
parent 3d1412e8c9
commit 975a690c10
9 changed files with 21 additions and 18 deletions

View File

@@ -1,5 +1,5 @@
Package: AMR Package: AMR
Version: 3.0.1.9037 Version: 3.0.1.9038
Date: 2026-03-22 Date: 2026-03-22
Title: Antimicrobial Resistance Data Analysis Title: Antimicrobial Resistance Data Analysis
Description: Functions to simplify and standardise antimicrobial resistance (AMR) Description: Functions to simplify and standardise antimicrobial resistance (AMR)

View File

@@ -1,4 +1,4 @@
# AMR 3.0.1.9037 # AMR 3.0.1.9038
### New ### New
* Integration with the **tidymodels** framework to allow seamless use of SIR, MIC and disk data in modelling pipelines via `recipes` * Integration with the **tidymodels** framework to allow seamless use of SIR, MIC and disk data in modelling pipelines via `recipes`

View File

@@ -423,6 +423,9 @@ highlight_code <- function(code) {
format_inline_ <- function(...) { format_inline_ <- function(...) {
msg <- paste0(c(...), collapse = "") msg <- paste0(c(...), collapse = "")
if (pkg_is_available("cli", min_version = "3.0.0")) { if (pkg_is_available("cli", min_version = "3.0.0")) {
if (!cli::ansi_has_hyperlink_support()) {
msg <- simplify_help_markup(msg)
}
cli::format_inline(msg) cli::format_inline(msg)
} else { } else {
cli_to_plain(msg, envir = parent.frame()) cli_to_plain(msg, envir = parent.frame())

View File

@@ -270,7 +270,6 @@ mo_shortname <- function(x, language = get_AMR_locale(), keep_synonyms = getOpti
} }
#' @rdname mo_property #' @rdname mo_property
#' @export #' @export
mo_subspecies <- function(x, language = get_AMR_locale(), keep_synonyms = getOption("AMR_keep_synonyms", FALSE), ...) { mo_subspecies <- function(x, language = get_AMR_locale(), keep_synonyms = getOption("AMR_keep_synonyms", FALSE), ...) {

Binary file not shown.

View File

@@ -128,7 +128,8 @@ step_mic_log2 <- function(
trained = FALSE, trained = FALSE,
columns = NULL, columns = NULL,
skip = FALSE, skip = FALSE,
id = recipes::rand_id("mic_log2")) { id = recipes::rand_id("mic_log2")
) {
recipes::add_step( recipes::add_step(
recipe, recipe,
step_mic_log2_new( step_mic_log2_new(
@@ -203,7 +204,8 @@ step_sir_numeric <- function(
trained = FALSE, trained = FALSE,
columns = NULL, columns = NULL,
skip = FALSE, skip = FALSE,
id = recipes::rand_id("sir_numeric")) { id = recipes::rand_id("sir_numeric")
) {
recipes::add_step( recipes::add_step(
recipe, recipe,
step_sir_numeric_new( step_sir_numeric_new(

Binary file not shown.

Binary file not shown.

View File

@@ -219,7 +219,6 @@ test_that("test-eucast_rules.R", {
expect_inherits(eucast_dosage(c("tobra", "genta", "cipro")), "data.frame") expect_inherits(eucast_dosage(c("tobra", "genta", "cipro")), "data.frame")
x <- custom_eucast_rules( x <- custom_eucast_rules(
AMC == "R" & genus == "Klebsiella" ~ aminopenicillins == "R", AMC == "R" & genus == "Klebsiella" ~ aminopenicillins == "R",
AMC == "I" & genus == "Klebsiella" ~ aminopenicillins == "I", AMC == "I" & genus == "Klebsiella" ~ aminopenicillins == "I",