## Not run:
# sa_map <- create_map_df(locator=SoAm_country)
# sa_dat <- get_ensemble_temp(SoAm_country,"annualanom",2080,2100)
# sa_dat <- subset(sa_dat,sa_dat$scenario == "a2")
# sa_dat <- subset(sa_dat,sa_dat$percentile == 50)
# sa_poly <- kml_to_sp(sa_map,df = sa_dat)
# ### colors are a bit off, but just to verify that data is
# spplot(sa_poly,"data")
#
# ## End(Not run)
Run the code above in your browser using DataLab