if (FALSE) {
extd.dir <- system.file("extdata", package = "pacu")
area.of.interest <- sf::st_read(file.path(extd.dir, 'cobs_a_aoi.shp'))
weather.met <- pa_get_weather_sf(aoi = area.of.interest,
start.date = '1990-01-01',
end.date = '2020-12-31',
source = 'power')
}
Run the code above in your browser using DataLab