# NOT RUN {
p <- PATH0(cst10)
# DEL0(p) ## fails as does DEL0(cst10)
# fails at 14 and crashes R in DEL0() in R version 4.0.0 RC (2020-04-17 r78247) on
# windows
p$vertex$x_ <- signif(p$vertex$x_, 13)
p$vertex$y_ <- signif(p$vertex$y_, 13)
DEL0(p)
## compare 14993 unique vertices after rounding to
silicate::sc_vertex(p) ## 21875
silicate::sc_vertex(cst10) ## 21875
# }
Run the code above in your browser using DataLab