mrjoh3 / geoflowr Goto Github PK

View Code? Open in Web Editor NEW

12.0 12.0 1.0 1.63 MB

Mapping Geographical Flows

Home Page: https://docs.ropensci.org/geoflowr

License: Other

R 100.00%

ozunconf18 r r-package rstats unconf

geoflowr's People

Contributors

Stargazers

Watchers

Forkers

mdsumner

geoflowr's Issues

Transfer to personal account?

@mrjoh3 @RPanczak @gabyd 👋 according to our recently created package curation policy this repo should now be transferred to either one of your personal accounts, or the ropensci-archive organization.

If you don't answer within one month, I'll transfer the repository to ropensci-archive, after which you could still email me to transfer the repo to a personal account.

Thank you!

two-point georegistration from shiny click

I traced this out using affinething - appreciate the shiny example, this could be worked up into a neat application!

library(raster)
r <- brick("inst/shiny/image_click/world.png")

## click southwest, then northwest 
## (I chose the gridline intersections west of SAmerica ,and NULL island)
## note that shiny returns the pixel count from the top, so nrow - y
## these values are reported by the shiny app on screen currently
xy <- rbind(c(x = 194, y = nrow(r) - 416),
c(x = 490, y = nrow(r) - 292))

## those locations are these coordinates, the grid line intersections 
pts <- rbind(c(x = -120, -50), 
             c(x = 0, 0))

rfix  <- setExtent(r, affinething::domath(pts, xy, r = r))
plotRGB(rfix)
maps::map(add = TRUE)
points(pts)