Update R/map.station.R