R/assignment_5.R

In zahrajalilpour292/assignment_5: What the package does (short line)

library(httr)
library(jsonlite)
install.packages("XML")
library(XML)
library(curl)

url_val <-"https://data.montgomerycountymd.gov/resource/icn6-v9z3.json"


rep <- GET(url_val)
rep
http_type(rep)


# if HTTP request is successful
status_code(rep)

if (status_code(rep) != 200) {
  stop(
    sprintf(
      "API request failed [%s]\n%s\n<%s>", 
      status_code(rep),
      parsed$message,
      parsed$documentation_url
    ),
    call. = FALSE
  )
}

str(content(rep))
# Convert to data frame
crime_parsed<-fromJSON(content(rep, "text"))
names(crime_parsed)
# get only required variables
df <- data.frame(crime_parsed$date, crime_parsed$city, crime_parsed$place,crime_parsed$crimename1,
                 crime_parsed$crimename2, crime_parsed$crimename3, crime_parsed$start_date)
head(df)
df$crime_parsed.date = as.POSIXct(df$crime_parsed.date,
                                  origin='1970-01-01',
                                  tz="GMT")
head(df)