P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-12 11:01:52 +02:00
Code Releases Activity

(v2.1.1.9218) Fix unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-19 16:05:24 +01:00
parent 4dc4398ad1
commit 287e361a54
17 changed files with 385 additions and 385 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/sir.R
View File

@ -812,7 +812,7 @@ as.sir.data.frame <- function(x,
x_mo <- as.mo(x[, col_mo, drop = TRUE])
}
for (i in seq_len(length(ab_cols))) {
for (i in seq_along(ab_cols)) {
if (types[i] == "mic") {
x[, ab_cols[i]] <- x %pm>%
pm_pull(ab_cols[i]) %pm>%
@ -1621,7 +1621,7 @@ as_sir_method <- function(method_short,
}
notes <- unique(notes)
if (isTRUE(verbose) || length(notes) == 1 || NROW(AMR_env$sir_interpretation_history) == 0) {
for (i in seq_len(length(notes))) {
for (i in seq_along(notes)) {
message(word_wrap(" ", AMR_env$bullet_icon, " ", notes[i], add_fn = font_black))
}
} else {