issue with pagging

[fahadshery]

Hi,

When I run the following code:

bwr_mentions_get( project_id = 1998216861, query_id = 1999369154, page = 0)

It automatically tries to see/check the next page i.e. 1 in this case.
This throws an error:

No encoding supplied: defaulting to UTF-8. Error in vapply(x, obj_sum, character(1L)) : values must be length 1, but FUN(X[[1]]) result is length 0

After checking with the de-bugger:

here is the error:

if (dim(results)[1] >= 5000) { results <- data.table::rbindlist(list(results, bwr_mentions_get(project_id = project_id, query_id = query_id, date_range = date_range, page = json$resultsPage + 1)), fill = TRUE) }

Could we get it fixed please?