search

hypertidy / anglr

Mesh creation and topology for spatial data (and not just geographic)
https://hypertidy.github.io/anglr/
83 stars 10 forks source link

colour indexing #57

Closed mdsumner closed 6 years ago

mdsumner commented 6 years ago

https://github.com/hypertidy/anglr/blob/b1b960e99f7a4052f390366a947fc33509bea57e/R/plot.r#L64

Having issues with colour mapping from pfft. I think this fixes it: 

pindex <- x$tXv %>% dplyr::inner_join(x$t) %>% dplyr::inner_join(x$o[c("object_", "color_")]) 
vindex <- dplyr::inner_join(x$tXv, vv, "vertex_")

Need to join from the triangle_link_vertex table for both indexes. (And there's probably a better solution)

mdsumner commented 6 years ago

Check with 

library(silicate)
rgl::rgl.clear(); plot(anglr(minimal_mesh)); rgl::rglwidget()

library(sf)
example(st_read)
rgl::rgl.clear(); plot(anglr(nc)); rgl::rglwidget()

gg <- spbabel::sp(ggpolypath::gardenstate %>% dplyr::mutate(x_ = x, y_ = y, order_ = order, branch_ = group, object_ = id, island_ = !hole))
rgl::rgl.clear(); plot(anglr(st_as_sf(gg))); rgl::rglwidget()

rgl::rgl.clear(); plot(anglr(sfdct::lakesuperior)); rgl::rglwidget()
mdsumner commented 6 years ago

Sweet, all is good. 2debd4e