Set and Get Verbosity Level.

Set and get the global verbosity level.

set_verbosity(level = 2L)

get_verbosity()

Arguments

level	A scalar (integer vector of length one), possibly -Inf or +Inf.

Details

Messages are generated, accordingly to the following levels:

Level 0.

None.

Level 1.

Operations modifying the internal state.

Level 2 (default).

All operations.

Level +Inf.

Debugging informations.

See also

define, make, reset, and touch.

Examples

reset()
#> [2017-06-21T21:58:30 UTC] Resetting modulr state ... OK
set_verbosity(+Inf)
define("foo", NULL, function() "Hello World")
#> [2017-06-21T21:58:30 UTC] Entering define() for 'foo' ...
#> [2017-06-21T21:58:30 UTC] Defining 'foo' ... OK
define("bar", list(f = "foo"), function(f) sprintf("*%s*", f))
#> [2017-06-21T21:58:30 UTC] Entering define() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] Defining 'bar' ... OK
make()
#> [2017-06-21T21:58:30 UTC] Entering make() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] Making 'bar' ...
#> [2017-06-21T21:58:30 UTC] * Visiting and defining dependencies ...
#> [2017-06-21T21:58:30 UTC] ** Entering load_module() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] ** Entering load_module() for 'foo' ...
#> [2017-06-21T21:58:30 UTC] * Constructing dependency graph ... OK
#> [2017-06-21T21:58:30 UTC] * Entering get_digest() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] * Entering get_digest() for 'foo' ...
#> [2017-06-21T21:58:30 UTC] * Evaluating #1/1 (layer #1/1): 'foo' ...
#> [2017-06-21T21:58:30 UTC] * Entering get_digest() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] DONE ('bar' in 0.023 secs)
#> [1] "*Hello World*"
touch("foo")
#> [2017-06-21T21:58:30 UTC] Entering touch() for 'foo' ...
#> [2017-06-21T21:58:30 UTC] Touching 'foo' ... OK
make("bar")
#> [2017-06-21T21:58:30 UTC] Entering make() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] Making 'bar' ...
#> [2017-06-21T21:58:30 UTC] * Visiting and defining dependencies ...
#> [2017-06-21T21:58:30 UTC] ** Entering load_module() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] ** Entering load_module() for 'foo' ...
#> [2017-06-21T21:58:30 UTC] * Constructing dependency graph ... OK
#> [2017-06-21T21:58:30 UTC] * Entering get_digest() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] * Entering get_digest() for 'foo' ...
#> [2017-06-21T21:58:30 UTC] * Evaluating #1/1 (layer #1/1): 'foo' ...
#> [2017-06-21T21:58:30 UTC] * Entering get_digest() for 'bar' ...
#> [2017-06-21T21:58:30 UTC] DONE ('bar' in 0.025 secs)
#> [1] "*Hello World*"

reset()
#> [2017-06-21T21:58:30 UTC] Entering reset() ...
#> [2017-06-21T21:58:30 UTC] Resetting modulr state ... OK
set_verbosity(2)
define("foo", NULL, function() "Hello World")
#> [2017-06-21T21:58:30 UTC] Defining 'foo' ... OK
define("bar", list(f = "foo"), function(f) sprintf("*%s*", f))
#> [2017-06-21T21:58:30 UTC] Defining 'bar' ... OK
make()
#> [2017-06-21T21:58:30 UTC] Making 'bar' ...
#> [2017-06-21T21:58:30 UTC] * Visiting and defining dependencies ...
#> [2017-06-21T21:58:30 UTC] * Constructing dependency graph ... OK
#> [2017-06-21T21:58:30 UTC] * Evaluating #1/1 (layer #1/1): 'foo' ...
#> [2017-06-21T21:58:30 UTC] DONE ('bar' in 0.022 secs)
#> [1] "*Hello World*"
touch("foo")
#> [2017-06-21T21:58:30 UTC] Touching 'foo' ... OK
make("bar")
#> [2017-06-21T21:58:30 UTC] Making 'bar' ...
#> [2017-06-21T21:58:30 UTC] * Visiting and defining dependencies ...
#> [2017-06-21T21:58:30 UTC] * Constructing dependency graph ... OK
#> [2017-06-21T21:58:30 UTC] * Evaluating #1/1 (layer #1/1): 'foo' ...
#> [2017-06-21T21:58:30 UTC] DONE ('bar' in 0.036 secs)
#> [1] "*Hello World*"

reset()
#> [2017-06-21T21:58:30 UTC] Resetting modulr state ... OK
set_verbosity(1L)
define("foo", NULL, function() "Hello World")
define("bar", list(f = "foo"), function(f) sprintf("*%s*", f))
make()
#> [2017-06-21T21:58:30 UTC] Evaluating #1/1 (layer #1/1): 'foo' ...
#> [1] "*Hello World*"
touch("foo")
make("bar")
#> [2017-06-21T21:58:30 UTC] Evaluating #1/1 (layer #1/1): 'foo' ...
#> [1] "*Hello World*"

reset()
set_verbosity(0L)
define("foo", NULL, function() "Hello World")
define("bar", list(f = "foo"), function(f) sprintf("*%s*", f))
make()
#> [1] "*Hello World*"
touch("foo")
make("bar")
#> [1] "*Hello World*"