mirror of
https://github.com/msberends/AMR.git
synced 2024-12-26 07:26:13 +01:00
0.7.1
This commit is contained in:
parent
278244140c
commit
453c159eac
@ -1,6 +1,6 @@
|
||||
Package: AMR
|
||||
Version: 0.7.0.9015
|
||||
Date: 2019-06-22
|
||||
Version: 0.7.1
|
||||
Date: 2019-06-23
|
||||
Title: Antimicrobial Resistance Analysis
|
||||
Authors@R: c(
|
||||
person(
|
||||
|
2
NEWS.md
2
NEWS.md
@ -1,4 +1,4 @@
|
||||
# AMR 0.7.0.9015
|
||||
# AMR 0.7.1
|
||||
|
||||
#### New
|
||||
* Function `rsi_df()` to transform a `data.frame` to a data set containing only the microbial interpretation (S, I, R), the antibiotic, the percentage of S/I/R and the number of available isolates. This is a convenient combination of the existing functions `count_df()` and `portion_df()` to immediately show resistance percentages and number of available isolates:
|
||||
|
6
R/mo.R
6
R/mo.R
@ -1217,11 +1217,11 @@ exec_as.mo <- function(x,
|
||||
if (NROW(uncertainties) > 0 & initial_search == TRUE) {
|
||||
options(mo_uncertainties = as.list(distinct(uncertainties, input, .keep_all = TRUE)))
|
||||
|
||||
plural <- c("value", "it")
|
||||
plural <- c("", "it")
|
||||
if (NROW(uncertainties) > 1) {
|
||||
plural <- c("values", "them")
|
||||
plural <- c("s", "them")
|
||||
}
|
||||
msg <- paste0("\nResults of ", nr2char(NROW(uncertainties)), " ", plural[1],
|
||||
msg <- paste0("\nResult", plural[1], " of ", nr2char(NROW(uncertainties)), " value", plural[1],
|
||||
" was guessed with uncertainty. Use mo_uncertainties() to review ", plural[2], ".")
|
||||
warning(red(msg),
|
||||
call. = FALSE,
|
||||
|
Loading…
Reference in New Issue
Block a user