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