# NOT RUN {
#download shapefile if it doesn't exist
ctryShapefile <- Rnightlights:::dnldCtryPoly("KEN")
#read in shapefile top layer
ctryPoly <- rgdal::readOGR(Rnightlights:::getPolyFnamePath("KEN"),
Rnightlights:::getCtryShpLyrName("KEN",0))
#get list of intersecting tiles
tileList <- Rnightlights:::tilesPolygonIntersectVIIRS(ctryPoly)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab