onanism.R

u <- "http://georeference.org/downloads/300k.zip"
f <- basename(u)
if (!file.exists(f)) {
  curl::curl_download(u, f, mode = "wb")
  unzip(f)
}

library(sf)

## Linking to GEOS 3.5.1, GDAL 2.1.2, proj.4 4.9.3

system.time(x <- read_sf("300k.shp"))

##    user  system elapsed 
##   3.432   0.780   4.217

library(sfdct)

system.time(tri <- ct_triangulate(x))

## all POINT, returning one feature triangulated

##    user  system elapsed 
##  55.544   1.848  57.409