html-tags.r

require(XML)
require(stringr)

raw <- paste0(readHTMLTable('http://www.w3schools.com/tags/')$`NULL`$Tag)	

processed <- unname(c(Filter(Negate(is.null), 
	Map (
		function (name) {
		
			if (str_detect(name, '<h1> to')) NULL else str_replace(name, 'New.*$', '')

		},
		raw)),
	paste0('<h', 1:6, '>')
))