Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
route <- get_osm(relation(3619145), full = TRUE) # get the route with all the ways/nodes
wUser <-$ways$attrs$user)) # get the User names who edited the ways
nUser <-$nodes$attrs$user)) # get the User names who edited the nodes
allUser <-, 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