(v1.2.0.9010) documentation fix

2025-07-09 17:02:03 +02:00 · 2020-06-17 21:35:10 +02:00
parent f18389d5d6
commit e88d7853f5
14 changed files with 20 additions and 20 deletions
--- a/R/resistance_predict.R
+++ b/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"))
    }