Allow shinyApp objects to appear inside tags

Makes these kinds of constructions possible (previously this would fail with an error):

```
splitLayout(
  "At right you can see a Shiny app.",
  shinyApp(...)
)
```