P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 02:03:04 +02:00
Code Releases Activity

(v0.7.1.9060) globals

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-08-25 23:25:12 +02:00
parent e46cb0399f
commit 05dcb43660
4 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/bug_drug_combinations.R
View File

@ -78,9 +78,9 @@ format.bugdrug <- function(x, combine_SI = TRUE, add_ab_group = TRUE, ...) {
}
y <- x %>%
mutate(mo = mo_name(mo),
txt = paste0(AMR:::percent(isolates / total, force_zero = TRUE),
" (", trimws(format(isolates, big.mark = ",")), "/",
trimws(format(total, big.mark = ",")), ")")) %>%
txt = paste0(percent(isolates / total, force_zero = TRUE),
" (", trimws(format(isolates, big.mark = ",")), "/",
trimws(format(total, big.mark = ",")), ")")) %>%
select(ab, mo, txt) %>%
spread(mo, txt) %>%
mutate_all(~ifelse(is.na(.), "", .)) %>%