Description Arguments Details See Also Examples
ConditionKeeper
times |
(integer) number of times to throw condition. required. default: 1 |
condition |
(character) which condition, one of "message" (default) or "warning" |
Methods
add(x)
- add a condition to internal storage
remove()
- remove the first condition from internal storage; returns that
condition so you know what you removed
purge()
- removes all conditions
thrown_already(x)
- (return: logical) has the condition been thrown
already?
not_thrown_yet(x)
- (return: logical) has the condition NOT been thrown
yet?
thrown_times(x)
- (return: numeric) number of times the condition
has been thrown
thrown_enough(x)
- (return: logical) has the condition been thrown
enough? "enough" being: thrown number of times equal to what you
specified in the times
parameter
get_id()
- get the internal ID for the ConditionKeeper object
handle_conditions(expr)
- pass a code block or function and handle
conditions within it
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | x <- ConditionKeeper$new(times = 4)
x
x$get_id()
x$add("one")
x$add("two")
x
x$thrown_already("one")
x$thrown_already("bears")
x$not_thrown_yet("bears")
x$add("two")
x$add("two")
x$add("two")
x$thrown_times("two")
x$thrown_enough("two")
x$thrown_enough("one")
foo <- function(x) {
message("you gave: ", x)
return(x)
}
foo('a')
x$handle_conditions(foo('a'))
x <- ConditionKeeper$new(times = 4, condition = "warning")
x
x$add("one")
x$add("two")
x
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.