[Post] knitr hooks for automatically printing SQL translation of dplyr code

[gadenbuie]

Good for collaborating with devops folks.

# A non-knitr example
with_show_query <- function(code) {
  sql <- sprintf(
    "\n\n<details><summary>SQL for previous query</summary>\n\n```sql\n%s\n```\n\n</details>\n\n",
    dbplyr::remote_query(code)
  )
  print(code)
  knitr::asis_output(sql)
}