Init.

.gitignore

@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata

bin/gfk-publicstuff.R

@@ -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))))

hack-grand-forks.Rproj

@@ -0,0 +1,15 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 4
+Encoding: UTF-8
+
+RnwWeave: knitr
+LaTeX: pdfLaTeX
+
+StripTrailingWhitespace: Yes