Update pfGridding.R

raster::intersect