small formatting change

Author: topepo

R/fit.R

@@ -367,7 +367,7 @@ check_xy_interface <- function(x, y, cl, model) {
 #' @export
 print.model_fit <- function(x, ...) {
   cat("parsnip model object\n\n")
-  cat("Fit in: ", prettyunits::pretty_sec(x$elapsed[["elapsed"]]))
+  cat("Fit time: ", prettyunits::pretty_sec(x$elapsed[["elapsed"]]), "\n")
 
   if (inherits(x$fit, "try-error")) {
     cat("Model fit failed with error:\n", x$fit, "\n")

tests/testthat/test_fit_interfaces.R

@@ -90,8 +90,8 @@ test_that("elapsed time parsnip mods", {
     set_engine("lm") %>%
     fit(mpg ~ ., data = mtcars)
 
-  expect_output(print(lm1), "Fit in:")
-  expect_output(print(lm2), "Fit in:")
+  expect_output(print(lm1), "Fit time:")
+  expect_output(print(lm2), "Fit time:")
   expect_true(!is.null(lm1$elapsed))
   expect_true(!is.null(lm2$elapsed))
 })