Using cli functions for logging to console splits output chunk #2606

---
title: "testing"
output: 
  html_document:
    keep_md: true
---

```{r}
library(tidymodels)
library(filtro)

set.seed(1)
yield_split <- initial_split(modeldata::chem_proc_yield)
yield_split
yield_train <- training(yield_split)
yield_test <- testing(yield_split)

``` 


```{r}
library(important)
library(desirability2)
goals <-
  desirability(
    maximize(cor_spearman, low = 0.25, high = 1),
    maximize(imp_rf_oblique, scale = 2)
  )

yield_rec <-
  recipe(yield ~ ., data = yield_train) |>
  step_impute_knn(all_predictors(), neighbors = 10) |>
  step_predictor_desirability(
    all_predictors(),
    score = goals,
    prop_terms = 1 / 10
  )
yield_rec
```

---
title: "testing"
output: 
  html_document:
    keep_md: true
---

```{r}
print_cli <- function() {
  cli::cli_div(theme = list(.pkg = list(`vec-trunc` = Inf, 
    `vec-last` = ", ")))
  cli::cli_h1("Recipe")
  cli::cli_h3("Inputs")
  cli::cli_text("Number of variables by role")
  tab <- c("X", "Y")
  values <- 1:2
  cli::cli_verbatim(glue::glue("{names(tab)}: {values}"))
  cli::cli_end()
}
print_cli()
```

---
title: "testing"
output: 
  html_document:
    keep_md: true
---


``` r
print_cli <- function() {
  cli::cli_div(theme = list(.pkg = list(`vec-trunc` = Inf, 
    `vec-last` = ", ")))
  cli::cli_h1("Recipe")
  cli::cli_h3("Inputs")
  cli::cli_text("Number of variables by role")
  tab <- c("X", "Y")
  values <- 1:2
  cli::cli_verbatim(glue::glue("{names(tab)}: {values}"))
  cli::cli_end()
}
print_cli()
```

```
## 
```

```
## ── Recipe ──────────────────────────────────────────────────────────────────────
```

```
## 
```

```
## ── Inputs
```

```
## Number of variables by role
```

```
## 
```