# NOT RUN {
# usage with assignment operator:
foo <- function(x) {
    u <- usage()
    message("Usage is: ", u)
}
foo()
# usage without assignment operator:
bar <- function(x) {
    message(usage(n = -2))
}
bar()
# }
Run the code above in your browser using DataLab