This commit is contained in:
Burton-Kelly
2018-10-31 13:52:57 -05:00
commit 9fe901c316
3 changed files with 26 additions and 0 deletions

7
bin/gfk-publicstuff.R Normal file
View File

@ -0,0 +1,7 @@
library(rjson)
# Grab city view for Grand Forks
gfk <- fromJSON(file="https://www.publicstuff.com/api/2.0/city_view?space_id=15174")
## Make a data frame of request_type IDs and names
gfk_request_types <- as.data.frame(t(sapply(gfk$response$request_types$request_types, function(x) c(x$request_type$id, x$request_type$name))))