Init.

2018-10-31 13:52:57 -05:00
commit 9fe901c316
@@ -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))))