The goal of messaging is to provides a toolset for creating and issuing nicely-formatted text within R diagnostic messages and those messages given during warnings and errors. The formatting of the messages can be customized using templating features. Issues with singular and plural forms can be handled through specialized syntax.
For for the purpose of demonstrating how messaging
can help you format and issue messages, we can create a function
(yield_a_message()
) that uses the
emit_message()
function for the sole purpose of displaying
a message.
library(messaging)
<- function() {
yield_a_message
# This function's only aim is to produce
# a message; throughout the function body, we
# can generate objects that can be assembled
# into a customizable message with `emit_message()`
# Create some strings can serve as additional
# info for the message
<-
important_message_parts c("* message info part 1",
"* message info part 2",
"* message info part 3")
# Get a numeric value to use in the message
<- length(important_message_parts)
n_info_lines
# Generate and emit a formatted message
emit_message(
"There (is/are) {number} thing(s) to note", # on line 1; singular/plural syntax
# 3 additional lines (all lines are separated with `/n`)
important_message_parts, number = n_info_lines, # a named argument; `n_info_lines` inserted into {number}
.format = "{.f_name} info: {text}") # an optional template
}
Within the main function body, there’s the creation of character
(important_message_parts
) and numeric
(number_of_info_lines
) values that will help us compose our
message. This combination of function-scope objects will work alongside
templated expression strings in the emit_message()
function. Multiple expression strings can be provided to
emit_message()
to serve as components of the message
(newlines will separate each of the expressions provided).
Using curly braces, we can enable text interpolation (e.g.,
The number is {number} and this is considered {level}
)
where named arguments (e.g., number = 3
,
level = "high"
, etc.) provide the values for the message
components.
If there is interpolation of numerical values, there is also the
option to provide singular and plural forms for words associated with
the the values. Simply enclose the singular and plural alternatives in
parentheses and the function will finalize the statement based on the
associated numerical values. Some syntax examples are:
(is/are)
, analys(is/es)
,
result(s)
.
Upon calling yield_a_message()
we see that a message
does appear and that the text on the first line has been processed such
that it’s grammatically correct.
# Call the `yield_a_message()` function
yield_a_message()
#> `yield_a_message()` info: There are 3 things to note
#> * message info part 1
#> * message info part 2
#> * message info part 3
We can also emit warnings and errors by using the
emit_warning()
and emit_error()
functions
within those functions of our own design. Here’s a function that might
provide a warning (if the sum of x and y is greater than 100):
<- function(x, y) {
might_warn_you
<- x + y
sum_xy
if (sum_xy > 100) {
emit_warning(
"This value ({sum_xy}) is greater than 100.",
sum_xy = sum_xy)
}
return(sum_xy)
}
might_warn_you(40, 50)
#> [1] 90
might_warn_you(60, 50)
#> Warning: `might_warn_you()`: This value (110) is greater than 100.
#> [1] 110
We can exit a function early with a message using the
emit_error()
function:
<- function(x, y) {
will_stop_if_not_careful
<- x + y
sum_xy
if (sum_xy > 100) {
emit_error(
"This value ({sum_xy}) is greater than 100. That is bad.",
sum_xy = sum_xy)
}
return(sum_xy)
}
will_stop_if_not_careful(60, 50)
Here is a reproduction of the error message:
Error: `will_stop_if_not_careful()`: This value (110) is greater than 100. That is bad.
messaging is used in an R environment. If you don’t have an R installation, it can be obtained from the Comprehensive R Archive Network (CRAN).
You can install the development version of messaging from GitHub using the devtools package.
::install_github("rich-iannone/messaging") devtools
If you encounter a bug, have usage questions, or want to share ideas to make this package better, feel free to file an issue.
Contributor Code of Conduct. By participating in this project you agree to abide by its terms.
MIT © Richard Iannone