inst/apps/brapi/utils/brapi_status.R

brapi_status <- function(code = 100, message = "No matching records found.", status = NULL){
  if(code == 100){
    pagination = list(
      pageSize = 0,
      currentPage = 0,
      totalCount = 0,
      totalPages = 0
    )
  }

  if (is.null(status)) {
    status =
      list(
        list(
          code = code,
          message = message
        )
      )
  } else {
    status[[length(status) + 1]] <- list(code = code, message =  message)
  }

  list(pagination = pagination, status = status, datafiles = list())
}
CIP-RIU/brapiTS documentation built on May 6, 2019, 11:19 a.m.