Vectorize the get_week_start function.
In get_week_start, skip NAs
Return NA for infinite Date values, too.