SET_TYPEOF() cannot convert REAL to INTEGER in merge

[joshuaulrich]

Description

This test fails in R-devel r86639:

x <- .xts(integer(), integer(), tclass = "Date", tzone = "UTC")
merge(x, x, x)
## Error in merge.xts(x, x, x) : can't change type from REALSXP to INTSXP
## Calls: merge -> merge.xts

Because of the call to SET_TYPEOF() here:

xts/src/merge.c

Line 375 in 5429845

SET_TYPEOF(out, TYPEOF(x));

That code block calls xts(), which returns an empty xts object with 'double' coredata. SET_TYPEOF() tries to convert it to the same type as x (integer) and that fails.

Thanks to Kurt Hornik for the report.