R Блестящий консольный вывод с цветами

Question

Я наткнулся на это:

library(shiny)

withConsoleRedirect <- function(containerId, expr) {
  # Change type="output" to type="message" to catch stderr
  # (messages, warnings, and errors) instead of stdout.
  txt <- capture.output(results <- expr, type = "output")
  if (length(txt) > 0) {
    insertUI(paste0("#", containerId), where = "beforeEnd",
      ui = paste0(txt, "\n", collapse = "")
    )
  }
  results
}

# Example usage

ui <- fluidPage(
  pre(id = "console")
)

server <- function(input, output, session) {
  observe({
    invalidateLater(1000)

    withConsoleRedirect("console", {
      str(cars)
    })
  })
}

shinyApp(ui, server)

решение для консольного вывода в R Shiny, но если консоль станет слишком большой, вместо этого будет увеличено все окно приложениядобавить ползунок в сторону его.Я также хотел сделать консоль и текст другим цветом.Как мне подойти к этому?Это вообще выполнимо?