P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 20:46:12 +01:00
Code Releases Activity

0.7.1

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2019-06-23 14:49:17 +02:00
parent 278244140c
commit 453c159eac
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DESCRIPTION
View File

@ -1,6 +1,6 @@
Package: AMR Package: AMR
Version: 0.7.0.9015 Version: 0.7.1
Date: 2019-06-22 Date: 2019-06-23
Title: Antimicrobial Resistance Analysis Title: Antimicrobial Resistance Analysis
Authors@R: c( Authors@R: c(
person( person(

2
NEWS.md
View File

@ -1,4 +1,4 @@
# AMR 0.7.0.9015 # AMR 0.7.1
#### New #### 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: * 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
View File

@ -1217,11 +1217,11 @@ exec_as.mo <- function(x,
if (NROW(uncertainties) > 0 & initial_search == TRUE) { if (NROW(uncertainties) > 0 & initial_search == TRUE) {
options(mo_uncertainties = as.list(distinct(uncertainties, input, .keep_all = TRUE))) options(mo_uncertainties = as.list(distinct(uncertainties, input, .keep_all = TRUE)))
plural <- c("value", "it") plural <- c("", "it")
if (NROW(uncertainties) > 1) { 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], ".") " was guessed with uncertainty. Use mo_uncertainties() to review ", plural[2], ".")
warning(red(msg), warning(red(msg),
call. = FALSE, call. = FALSE,