diff --git a/R/first_isolates.R b/R/first_isolates.R
index 6f6c49f8..c8d8bbe0 100644
--- a/R/first_isolates.R
+++ b/R/first_isolates.R
@@ -321,11 +321,12 @@ first_isolate <- function(tbl,
, points_threshold, ')...\n'))
}
}
+ type_param <- type
all_first <- all_first %>%
mutate(key_ab_lag = lag(key_ab)) %>%
mutate(key_ab_other = !key_antibiotics_equal(x = key_ab,
y = key_ab_lag,
- type = type,
+ type = type_param,
ignore_I = ignore_I,
points_threshold = points_threshold,
info = info)) %>%
@@ -524,9 +525,9 @@ key_antibiotics_equal <- function(x,
points_threshold = 2,
info = FALSE) {
# x is active row, y is lag
-
- type <- type[1]
+ type <- type[1]
+
if (length(x) != length(y)) {
stop('Length of `x` and `y` must be equal.')
}
@@ -594,7 +595,7 @@ key_antibiotics_equal <- function(x,
result[i] <- all(x2 == y2)
} 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.')
}
}
}
diff --git a/README.md b/README.md
index 67a257eb..9c869851 100644
--- a/README.md
+++ b/README.md
@@ -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/AMR)](http://cran.r-project.org/package=AMR)
-- In R:
+- In R:
- `install.packages("AMR")`
- In RStudio: