Embedding tweets in reactable

[gadenbuie]

(and other places where the tweets are visible later in the render process)

x <- tibble::tibble(name = "Tom", handle = "@thomas_mock", tweet = "https://twitter.com/thomas_mock/status/1294670115590545408")

tbl <- htmltools::tagList(
  tweetrmd:::html_dependency_twitter(),
  reactable::reactable(
    data = x,
    # groupBy = "handle",
    columns = list(
      tweet = reactable::colDef(
        cell = function(tweet_url) {
          tweet_embed(tweet_url, omit_script = FALSE)
        },
        html = TRUE
      )
    )
  )
)

htmltools::browsable(tbl)

• Doesn't work without explicitly embedding the dependency
• Doesn't work if omit_script = TRUE in tweet_embed()
• Doesn't work if groupBy grouped rows is used

[gadenbuie]

thanks @jthomasmock for bringing this up!

[gadenbuie]

relevant docs: https://developer.twitter.com/en/docs/twitter-for-websites/javascript-api/guides/scripting-loading-and-initialization

[gadenbuie]

https://gist.github.com/gadenbuie/1e47c9b50ccbaea95cc9e00b39ec3f27