From 5d1ca6d3a44e85c43364546c73ff2ba36689068c Mon Sep 17 00:00:00 2001 From: mburtonkelly Date: Wed, 31 Oct 2018 17:12:02 -0500 Subject: [PATCH] Get closer to parsing JSON right. --- bin/gfk-publicstuff.R | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/bin/gfk-publicstuff.R b/bin/gfk-publicstuff.R index 6be2abf..bf9d4b4 100644 --- a/bin/gfk-publicstuff.R +++ b/bin/gfk-publicstuff.R @@ -3,10 +3,11 @@ # Note that the API version at https://www.publicstuff.com/developers#!/API is v2.0, # but this only includes requests up to a certain date. Use v2.1 for recent requests. +library(jsonlite) library(rjson) # Grab city view for Grand Forks -gfk <- fromJSON(file="https://www.publicstuff.com/api/2.1/city_view?space_id=15174") +gfk <- rjson::fromJSON(file="https://www.publicstuff.com/api/2.1/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)))) @@ -16,8 +17,17 @@ names(gfk_request_types) <- c("request_type_id","request_type_name") # Unix timestamp from a week ago today <- as.numeric(as.POSIXct(Sys.time())) week_ago <- today-604800 + gfk_requests <- lapply(gfk_request_types$request_type_id, - function(x) fromJSON(file=paste0("https://www.publicstuff.com/api/2.1/requests_list?request_type_id=", + function(x) jsonlite::fromJSON(paste0("https://www.publicstuff.com/api/2.1/requests_list?request_type_id=", x,"&after_timestamp=",week_ago,"&limit=10"))) +#gfk_requests1[sapply(gfk_requests1 , is.null)] <- NULL + +gfk_requests <- lapply(gfk_requests, function(x) x$response$requests$request) +## Need to clear out attachments in some way here + +# Drop nulls +b<-Filter(Negate(is.null), gfk_requests) +gfk_requests <- dplyr::bind_rows(b)