feat(contents_text): Add contents_*() helper functions

[gadenbuie]

Fixes #167

Adds contents_text(), contents_markdown() and contents_html() generics that can be applied to Turn and Content objects.

turns <- list(
  user_turn("What's this image?", content_image_url("https://placehold.co/200x200")),
  Turn("assistant", "It's a placeholder image.")
)

lapply(turns, contents_text)
#> [[1]]
#> [1] "What's this image?"
#> 
#> [[2]]
#> [1] "It's a placeholder image."
lapply(turns, contents_markdown)
#> [[1]]
#> [1] "What's this image?\n\n![](https://placehold.co/200x200)"
#> 
#> [[2]]
#> [1] "It's a placeholder image."
contents_html(turns[[1]])
#> [1] "<p>What's this image?</p>\n\n<img src=\"https://placehold.co/200x200\">"

[hadley]

This seems like a reasonable idea and implementation to me. You just need to fix the build failure and add some basic tests.

[hadley]

You didn't change anything to make this work, right? You just noticed that we can now simplify the implementation?

[gadenbuie]

Right, I moved the implementation that was here into method(contents_text, Turn).

[hadley]

Can you pass turns?

[gadenbuie]

I just added a method for contents_markdown() for Chat instances. I see a lot of utility in that particular output format and less utility in the HTML or text variants. That said I'd be happy to add those if you want.

turns <- list(
  user_turn("What's this image?", content_image_url("https://placehold.co/200x200")),
  Turn("assistant", "It's a placeholder image.")
)

chat <- Chat$new(Provider("https://example.com"), turns = turns)
cat(contents_markdown(chat))
#> ## User
#> 
#> What's this image?
#> 
#> ![](https://placehold.co/200x200)
#> 
#> ## Assistant
#> 
#> It's a placeholder image.

[gadenbuie]

Related: is there a way to create a chat_echo() (or maybe chat_repeater()) chat instance that just returns the user input and doesn't call any APIs? Carson made an example like this for Shiny and I've found it to be very useful for debugging and examples when I'm not ready for real model usage yet.

[hadley]

I think that would be pretty straightforward with a new provider.

[gadenbuie]

@hadley this is ready for another look. Sorry for the commit noise, I only just now realized I wasn't able to run checks locally because I had out-of-date credentials. Of course when I finally got to ✅ in the last commit there was an unrelated CI failure and I can't request a rerun.