# \donttest{
try({
# create token bucket
bucket <- TokenBucket(
capacity = 10,
tokens = 10,
intervall = 1,
last_update = Sys.Time()
)
# add tokens to bucket
bucket$addTokens()
# check if a token is available
bucket$isTokenAvailable
# consume token
bucket$consumeToken
})
# }
Run the code above in your browser using DataLab