Update map.R