R/ge.splitPoly.R

ge.splitPoly  <- function(line,poly){
        x  <- gIntersection(line, poly)
        bx <- gBuffer(x, width = 0.000001)
        dx <- gDifference(poly, bx)
}
bwtian/geothermaR documentation built on May 13, 2019, 9:25 a.m.