# NOT RUN {
quo <- quo(foo(!! quo(bar)))
quo
# quo_expr() unwraps all quosures and returns a raw expression:
quo_expr(quo)
# This is used by quo_text() and quo_label():
quo_text(quo)
# Compare to the unwrapped expression:
expr_text(quo)
# quo_name() is helpful when you need really short labels:
quo_name(quo(sym))
quo_name(quo(!! sym))
# }
Run the code above in your browser using DataLab