browsable html lost dependency in print

[haozhu233]

Hi, I noticed that print.html calls HTML again in function. This call removes all the HTML dependencies on the original object.

htmltools/R/tags.R

Lines 223 to 229 in 4b34e98

	print.html <- function(x, ..., browse = is.browsable(x)) {
	if (browse)
	html_print(HTML(x))
	else
	cat(x, "\n", sep = "")
	invisible(x)
	}

Here is an example.

aaa <- HTML(as.character(shiny::icon("times")))
htmlDependencies(aaa) <- rmarkdown::html_dependency_font_awesome()
browsable(aaa) # which won't print the FA icon

html_print(aaa) # which will print the icon

[haozhu233]

I'm also willing to submit a PR but I hope someone could let me know whether it would be better to remove this HTML call (cuz this is the print function for the html class already), or you think it would be better to keep it and have some extra step to preserve the html dependency attributes.

[jcheng5]

Thanks for the report. I can't think of why we need the HTML() call.