Print an expressionSource:
expr_print(), powered by
expr_deparse(), is an alternative
printer for R expressions with a few improvements over the base R
It colourises quosures according to their environment. Quosures from the global environment are printed normally while quosures from local environments are printed in unique colour (or in italic when all colours are taken).
It wraps inlined objects in angular brackets. For instance, an integer vector unquoted in a function call (e.g.
expr(foo(!!(1:3)))) is printed like this:
foo(<int: 1L, 2L, 3L>)while by default R prints the code to create that vector:
foo(1:3)which is ambiguous.
It respects the width boundary (from the global option
width) in more cases.
expr_print(x, ...) expr_deparse(x, ..., width = peek_option("width"))
An object or expression to print.
Arguments passed to
The width of the deparsed or printed expression. Defaults to the global option
# It supports any object. Non-symbolic objects are always printed # within angular brackets: expr_print(1:3) #> <int: 1L, 2L, 3L> expr_print(function() NULL) #> <function() NULL> # Contrast this to how the code to create these objects is printed: expr_print(quote(1:3)) #> 1:3 expr_print(quote(function() NULL)) #> function() NULL # The main cause of non-symbolic objects in expressions is # quasiquotation: expr_print(expr(foo(!!(1:3)))) #> foo(<int: 1L, 2L, 3L>) # Quosures from the global environment are printed normally: expr_print(quo(foo)) #> ^foo expr_print(quo(foo(!!quo(bar)))) #> ^foo(^bar) # Quosures from local environments are colourised according to # their environments (if you have crayon installed): local_quo <- local(quo(foo)) expr_print(local_quo) #> ^foo wrapper_quo <- local(quo(bar(!!local_quo, baz))) expr_print(wrapper_quo) #> ^bar(^foo, baz)