Permalink
Browse files

modified analysis

  • Loading branch information...
kykamath committed Sep 12, 2012
1 parent a3e7dca commit 18c8bc65d58e186e0f91e0f05405bbf2c55c88d8
View
@@ -1,7 +1,5 @@
-{
- "menuitem": [
- {"value": "New", "onclick": "CreateNewDoc()"},
- {"value": "Open", "onclick": "OpenDoc()"},
- {"value": "Close", "onclick": "CloseDoc()"},
- ]
-}
+[
+{ "firstName":"John" , "lastName":"Doe" },
+{ "firstName":"Anna" , "lastName":"Smith" },
+{ "firstName":"Peter" , "lastName":"Jones" }
+]
@@ -3,7 +3,14 @@
source('../../R/library.R')
-data <- getJSONObject(paste('/Users/krishnakamath/Documents/workspace_sept_12/',
- 'hashtags_and_geo/R/data.json', sep=''))
-data$menuitem[-length(data$menuitem)]
+getJSONObject <- function(json_file) {
+ library("rjson")
+ print(paste("Reading json from", json_file, sep = " "))
+ return(fromJSON(paste(readLines(json_file), collapse="")))
+}
+
+#data <- getJSONObject('/Users/kykamath/Documents/workspace_sept_2012/hashtags_and_geo/R/data.json')
+data <- getJSONObject('/Users/kykamath/Documents/workspace_sept_2012/hashtags_and_geo/hashtags_for_locations_linear_model/hashtags_with_utm_id_object')
+data
+#data$menuitem[-length(data$menuitem)]
#getDataFrameFromListOfDicts(data$menuitem)
Oops, something went wrong.

0 comments on commit 18c8bc6

Please sign in to comment.