rstudio/shiny — pull request #154 by wch (2013-04-24 16:12:35+00:00)
Title: Add withHTML function

This implements the DSL that we discussed with @hadley and @jjallaire.

The following are equivalent:

```
tags$div(class = "myclass",
tags$h3("header"),
tags$p("text here")
)

withHTML(
div(class = "myclass",
h3("header"),
p("text here")
)
)
```