hypertidy / silicate

A general form for complex data
https://hypertidy.github.io/silicate/
53 stars 4 forks source link

why does sf plot these so crazy? #131

Closed mdsumner closed 4 years ago

mdsumner commented 4 years ago

We have to use the rds, because this was a bug in trrrj


library(trrrj)
library(magrittr)
es <- system.file("extdata", "airspace_prisme_462.prisme", package = "trrrj")
x <- readr::read_lines(es) %>%
  parse_airspace_prisme()
saveRDS(x, "airspace_prisme_462.prisme.rds")

library(sf)

saveRDS(x, "airspace_prisme_462.prisme.rds")
plot(sf::st_set_crs(x, NA)[1], reset = F)

image

mdsumner commented 4 years ago
 plot(silicate::PATH0(x))

image

mdsumner commented 4 years ago

(the bounding box)