@@ -140,7 +140,7 @@ Petfinder <- function(key, secret) {
140140coat = NULL ,
141141status = NULL ,
142142name = NULL ,
143- organization_id = NULL ,
143+ organization = NULL ,
144144location = NULL ,
145145distance = NULL ,
146146sort = NULL ,
@@ -180,7 +180,7 @@ Petfinder <- function(key, secret) {
180180coat = coat ,
181181status = status ,
182182name = name ,
183- organization_id = organization_id ,
183+ organization = organization ,
184184location = location ,
185185distance = distance ,
186186sort = sort ,
@@ -221,7 +221,8 @@ Petfinder <- function(key, secret) {
221221r <- private $ get_request(url = url ,
222222params = params )
223223
224- req_json <- jsonlite :: fromJSON(httr :: content(r ,as = ' text' encoding = ' utf-8'
224+ req_json <- jsonlite :: fromJSON(httr :: content(r ,as = ' text' encoding = ' utf-8'
225+ flatten = TRUE )
225226
226227animals_list [[paste0(' page' 1 ),sep = ' ' <- req_json $ animals
227228
@@ -456,7 +457,7 @@ Petfinder <- function(key, secret) {
456457name = NULL ,
457458age = NULL ,
458459animal_id = NULL ,
459- organization_id = NULL ,
460+ organization = NULL ,
460461status = NULL ,
461462results_per_page = NULL ,
462463page = NULL ) {
@@ -476,7 +477,7 @@ Petfinder <- function(key, secret) {
476477' name' = name ,
477478' age' = age ,
478479' animal_id' = animal_id ,
479- ' organization_id ' = organization_id ,
480+ ' organization ' = organization ,
480481' status' = status ,
481482' limit' = results_per_page ,
482483' page' = page