Init.

2018-10-31 13:52:57 -05:00
commit 9fe901c316
3 changed files with 26 additions and 0 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -0,0 +1,4 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
--- a/bin/gfk-publicstuff.R
+++ b/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))))
--- a/hack-grand-forks.Rproj
+++ b/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