(v1.2.0.9010) documentation fix

R/join_microorganisms.R

@@ -29,8 +29,8 @@
 #' @param x existing table to join, or character vector
 #' @param by a variable to join by - if left empty will search for a column with class [`mo`] (created with [as.mo()]) or will be `"mo"` if that column name exists in `x`, could otherwise be a column name of `x` with values that exist in `microorganisms$mo` (like `by = "bacteria_id"`), or another column in [microorganisms] (but then it should be named, like `by = c("my_genus_species" = "fullname")`)
 #' @param suffix if there are non-joined duplicate variables in `x` and `y`, these suffixes will be added to the output to disambiguate them. Should be a character vector of length 2.
-#' @param ... other parameters to pass on to [dplyr::join()]
-#' @details **Note:** As opposed to the [join()] functions of `dplyr`, [`character`] vectors are supported and at default existing columns will get a suffix `"2"` and the newly joined columns will not get a suffix. 
+#' @param ... ignored
+#' @details **Note:** As opposed to the `join()` functions of `dplyr`, [`character`] vectors are supported and at default existing columns will get a suffix `"2"` and the newly joined columns will not get a suffix. 
 #' 
 #' These functions rely on [merge()], a base R function to do joins.
 #' @inheritSection AMR Read more on our website!

R/resistance_predict.R

@@ -165,7 +165,7 @@ resistance_predict <- function(x,
   year <- function(x) {
     # don't depend on lubridate or so, would be overkill for only this function
     if (all(grepl("^[0-9]{4}$", x))) {
-      x
+      as.integer(x)
     } else {
       as.integer(format(as.Date(x), "%Y"))
     }