This code converts the class according to another variable, and will work for most use cases:

y <- as(y, class(x))

For some classes, such as Dates, you have to extend the class definition with a coercion method yourself