.app/tic/step_message.R

In data-science-competitions/Kaggle-House-Prices: Predict Sales Prices and Practice Feature Engineering, RFs, and Gradient Boosting

Message <- R6::R6Class(
    "Message",
    inherit = TicStep,
    public = list(
        initialize = function(msg = NULL) self$msg <- msg,
        run = function() message(self$msg),
        msg = character()
    )
)

step_message <- function(msg) {
    Message$new(msg)
}