Skip to content

Instantly share code, notes, and snippets.

@fozy81
Created April 22, 2014 20:17
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save fozy81/11192822 to your computer and use it in GitHub Desktop.
install.packages("osmar")
library(osmar)
route <- get_osm(relation(3619145), full = TRUE) # get the route with all the ways/nodes
wUser <- as.data.frame(summary(kaufstr_full$ways$attrs$user)) # get the User names who edited the ways
nUser <- as.data.frame(summary(kaufstr_full$nodes$attrs$user)) # get the User names who edited the nodes
allUser <- as.data.frame(c(row.names(wUser), row.names(nUser))) # create a data.frame (like a table) of user names
length(unique(allUser[,1])) # count unique number of user names
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment