Indented Cat

Usage

incat(x, sep = "")

Arguments

x

R objects.

sep

a character vector of strings to append after each element (default is "").

Value

None (invisible NULL).

Details

When the function detects a direct call (i.e. not from another function), then it basically just do cat otherwise it finds the calling function name and print indented output based on callstack position.

Examples

# default
incat("direct call")
#>                                                                                                 [eval] direct call

# call from different levels
foo <- function() incat("inside foo")
bar <- function() {incat("inside bar"); foo()}

foo()
#>                                                                                                    [foo()] inside foo
bar()
#>                                                                                                    [bar()] inside bar
#>                                                                                                       [foo()] inside foo