R中计算距离下一个生日的天数的函数

Question

伙计们有人可以帮我完成这项任务吗？我正在尝试在 R 中编写一个函数，其中它需要“字符”中的出生日期并计算距下一个生日还有多少天。我不断收到同样的错误

aftellen <- function(n) {
  if(class(n) == "character" | class(n) == "date") {
    day_birth <- as.Date(n)
    today <- Sys.Date() + 1
    totaldays <- length(seq(from = today, to = day_birth, by = "days"))
    print(totaldays)
  } else {
    print("Geef een geldige geboortedatum in")
  }
}


aftellen("2022-11-03")

the error:
Error in seq.int(0, to0 - from, by) : wrong sign in 'by' argument