Chat print method collapses newlines in user turns

[simonpcouch]

When I pass input to $chat that has (single) newlines, they're stripped away when the chat is printed out:

library(ellmer)

ch <- chat_claude()
res <- ch$chat("
    ```r
    library(ggplot2)
    ggplot(mtcars) + aes(x = mpg) + geom_histogram()
    ```
")
#> This R code... [redacted]

ch
#> <Chat turns=2 tokens=49/302>
#> ── user ────────────────────────────────────────────────────────────────────────
#> ```r library(ggplot2) ggplot(mtcars) + aes(x = mpg) + geom_histogram() ```
#> ── assistant ───────────────────────────────────────────────────────────────────
#> This R code...  [redacted]

^{Created on 2025-01-09 with reprex v2.1.1}

This makes it particularly hard to read code and code output when looking back at a chat's turns.

[hadley]

Very slightly more minimal example:

library(ellmer)

chat <- chat_claude(echo = FALSE)
. <- chat$chat("
  Explain this code in a bulleted list

  ```r
  library(ggplot2)
  ggplot(mtcars) + aes(x = mpg) + geom_histogram()
  ```
")
chat

[hadley]

Hmmm the problem is that method(format, ContentText) currently wraps the text to avoid very long lines. But probably better to just not wrap, given that this is mostly just a debugging function.