Create a gist now

Instantly share code, notes, and snippets.

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