queryString <- list(zip = zip_codes[1])

        # Send GET request to retrieve crime data
        response <- GET(url, add_headers("X-RapidAPI-Key" = API_Key, "X-RapidAPI-Host" = API_Host), query = queryString)
        
        # Check for any errors in the response
        warn_for_status(response)