[bug] [0.16.0] callout block titles with markup have duplicated text

[zkamvar]

The callout blocks with markup in their titles have duplicated text:

For example, the title ### callout (`callout`) appears like this:

The source of the error is from

sandpaper/R/utils-xml.R

Lines 198 to 201 in 50bfd5a

	callouts <- xml2::xml_find_all(nodes, ".//div[starts-with(@class, 'callout ')]")
	h3 <- xml2::xml_find_all(callouts, "./div/h3")
	translations <- get_callout_translations()
	xml_text_translate(h3, translations)

What we need to do is to select /text() before we pass the elements to xml_text_translate()