У меня есть такие строки, как
y1 <- "AB99"
y2 <- "04CD"
y3 <- "X90Z"
y4 <- "EF09"
y5 <- "12GH"
где мне нужно извлечь год из двух цифр и завершить его в четырехзначном формате. Диапазон ввода - от 1990 до 2020.
Результат должен быть:
"1999"
"2004"
"1990"
"2009"
"2012"
Я пытался:
fun <- function(x) {
year <- readr::parse_number(x)
if(year < 50) year <- paste0("20", year) else year <- paste0("19", year)
return(year)
}
Это нормально работает, за исключением 2000–2009 годов (тестовые примеры y2
и y4
).
Какие функции могут помочь мне нормально работать в те годы?