fix(r): sub-day precision Date should be floored when treated as integer

fix(r): sub-day precision Date should be floored when treated as integer #1638