1
0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 07:26:13 +01:00
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

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.')
} }
} }
} }

View File

@ -20,7 +20,7 @@ This package is available on CRAN and also here on GitHub.
[![CRAN_Downloads](https://cranlogs.r-pkg.org/badges/grand-total/AMR)](http://cran.r-project.org/package=AMR) [![CRAN_Downloads](https://cranlogs.r-pkg.org/badges/grand-total/AMR)](http://cran.r-project.org/package=AMR)
[![CRAN_Downloads](https://cranlogs.r-pkg.org/badges/AMR)](http://cran.r-project.org/package=AMR) [![CRAN_Downloads](https://cranlogs.r-pkg.org/badges/AMR)](http://cran.r-project.org/package=AMR)
- <img src="https://cran.r-project.org/favicon.ico" alt="R favicon" height="20px">In R: - <img src="https://cran.r-project.org/favicon.ico" alt="R favicon" height="20px"> In R:
- `install.packages("AMR")` - `install.packages("AMR")`
- <img src="http://www.rstudio.com/favicon.ico" alt="RStudio favicon" height="20px"> In RStudio: - <img src="http://www.rstudio.com/favicon.ico" alt="RStudio favicon" height="20px"> In RStudio: