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

typo

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-03-19 21:03:23 +01:00
parent dd2517ecb7
commit c765f424ab
No known key found for this signature in database
GPG Key ID: AE86720DBCDA4567
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
R/first_isolates.R
View File

@ -321,11 +321,12 @@ first_isolate <- function(tbl,
, points_threshold, ')...\n')) , points_threshold, ')...\n'))
} }
} }
type_param <- type
all_first <- all_first %>% all_first <- all_first %>%
mutate(key_ab_lag = lag(key_ab)) %>% mutate(key_ab_lag = lag(key_ab)) %>%
mutate(key_ab_other = !key_antibiotics_equal(x = key_ab, mutate(key_ab_other = !key_antibiotics_equal(x = key_ab,
y = key_ab_lag, y = key_ab_lag,
type = type, type = type_param,
ignore_I = ignore_I, ignore_I = ignore_I,
points_threshold = points_threshold, points_threshold = points_threshold,
info = info)) %>% info = info)) %>%
@ -594,7 +595,7 @@ key_antibiotics_equal <- function(x,
result[i] <- all(x2 == y2) result[i] <- all(x2 == y2)
} else { } else {
stop('No valid value for type, must be `points` or `keyantibiotics`. See ?first_isolate.') stop('`', type, '` is not a valid value for type, must be `points` or `keyantibiotics`. See ?first_isolate.')
} }
} }
} }