Typo in generic definition of reclass_timespan

[JorisChau]

As mentioned in the title, there appears to be a type at coercion.r#117:

setGeneric("reclass_timespan",
  useAsDefault = function(new, orig) {
    stop(sprintf("reclass_timespan is not defined for class '%s'", class(x)))
  }
)

It seems that class(x) should be class(orig) instead.

Minimal example:

library(lubridate)
t <- period(100, "seconds")
cl <- numeric(1)
reclass_timespan(t, cl)
#> Error in reclass_timespan(t, cl): object 'x' not found