R/brapi_serverinfo_pagination.R

In mverouden/brapir-v2: Client to Access BrAPI Compliant Plant Breeding Databases

#' Helper function for pagination information
#'
#' @author Maikel Verouden
#'
#' @noRd
#' @keywords internal
brapi_serverinfo_pagination <- function(cont) {
  if (jsonlite::validate(txt = cont)) {
    contList <- jsonlite::fromJSON(txt = cont)
  } else {
    return()
  }
  if (is.null(contList[["metadata"]])) {
    return()
  } else {
    pagination <- contList[["metadata"]][["pagination"]]
    if (!is.null(pagination) && !all(c("nextPageToken", "prevPageToken") %in% names(pagination))) {
      brapirv2:::brapi_message(msg = paste0("Returning page ",
                                          pagination[["currentPage"]],
                                          " (max. ",
                                          ifelse(as.integer(pagination[["totalPages"]]) == 0,
                                                 0,
                                                 as.integer(pagination[["totalPages"]]) - 1),
                                          ") with max. ",
                                          pagination[["pageSize"]],
                                          " items (out of a total of ",
                                          pagination[["totalCount"]],
                                          ")."))
    } else if (!is.null(pagination) &&
               all(c("nextPageToken", "prevPageToken") %in% names(pagination))) {
      ## Tokenized Pagination
      brapirv2:::brapi_message(msg = paste0("Returning page ",
                                            pagination[["currentPage"]],
                                            " (max. ",
                                            ifelse(as.integer(pagination[["totalPages"]]) == 0,
                                                   0,
                                                   as.integer(pagination[["totalPages"]]) - 1),
                                            ") with max. ",
                                            pagination[["pageSize"]],
                                            " items (out of a total of ",
                                            pagination[["totalCount"]],
                                            "). Next page token: ",
                                            pagination[["nextPageToken"]],
                                            ", previous page token: ",
                                            pagination[["previousPageToken"]]))
    }
  }
}