observe ({
    #assign spatial context to allpoints
    ...

    test <- over(allPoints, myBounds())
})