R/class-ratelimit.R

In tengfei/sevenbridges: Seven Bridges Platform API Client and Common Workflow Language Tool Builder in R

# Rate limit
Rate <- setRefClass(
  "Rate",
  contains = "Item",

  fields = list(
    limit = "numeric",
    remaining = "numeric",
    reset = "numeric"
  ),

  methods = list(
    show = function() {
      .showFields(
        .self, "== Rate Limit ==",
        values = c("limit", "remaining", "reset")
      )
    }
  )
)

.asRate <- function(x) {
  Rate(
    limit = x$rate$limit,
    remaining = x$rate$remaining,
    reset = x$rate$reset,
    response = response(x)
  )
}