Create mapzoom.R