1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
## internal helper functions for printing solver return code messages
## these functions are not exported
## print combined messages (message and numeric output)
printmessage <-function(message1, state, message2 = NULL, Nr = 1:length(message1)) {
if (is.null(message2)) {
cat("\n", paste(formatC(Nr, "##", width = 2), message1,
signif(state, digits = getOption("digits")), "\n"), "\n")
} else {
cat("\n", paste(formatC(Nr, "##", width = 2), message1,
signif(state, digits = getOption("digits")), message2, "\n"), "\n")
}
}
## print short messages
printM <- function(message) cat(message, "\n")
|
