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

(v0.8.0.9005) fix unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-10-26 22:21:26 +02:00
parent d2e8249edd
commit 412077a6f2
15 changed files with 20 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/mdro.R
View File

@ -461,7 +461,7 @@ mdro <- function(x,
left_join_microorganisms(by = col_mo) %>%
# add unconfirmed to where genus is available
mutate(MDRO = ifelse(!is.na(genus), 1, NA_integer_),
row_number = 1:nrow(x)) %>%
row_number = seq_len(nrow(x))) %>%
# transform to data.frame so subsetting is possible with x[y, z] (might not be the case with tibble/data.table/...)
as.data.frame(stringsAsFactors = FALSE)