unbreak saveWidget( ... selfcontained = FALSE ...)

[ThomasSiegmund]

#292 broke the selfcontained = FALSE case, writing only markdown without conversation to html. This restores the previous behaviour.

[jjallaire]

@jcheng5 Could you review this?

[jcheng5]

Ouch, sorry for introducing that bug! This looks good. Perhaps we should include the <title> in the self-contained=FALSE case as well. I think that should be as simple as html <- tagList(tags$head(tags$title(title)), html)?

[ThomasSiegmund]

Good point, I have added the title

[jcheng5]

Thanks @ThomasSiegmund!