x <- read_xml("<p>This is some text. This is <b>bold!</b></p>")
xml_text(x)
xml_text(xml_children(x))
x <- read_xml("<x>This is some text. <x>This is some nested text.</x></x>")
xml_text(x)
xml_text(xml_find_all(x, "//x"))
x <- read_xml("<p> Some text </p>")
xml_text(x, trim = TRUE)Run the code above in your browser using DataLab