# NOT RUN {
# well-known text
wkt_problems(c("POINT EMTPY", "POINT (20 30)"))
# well-known binary
wkb <- wkt_translate_wkb("POINT (30 10)", endian = 1)[[1]]
wkb_bad <- wkb
wkb_bad[2] <- as.raw(255)
wkb_problems(list(wkb, wkb_bad))
# }
Run the code above in your browser using DataLab