myTests/KurtEncoding.R

library("XML")
doc <- htmlParse("m49alpha.htm")
out <- xpathSApply(doc, "//table[2]//tr//td", xmlValue)
pos <- tail(grep("ISO ALPHA-3", out), n = 1L)
out <- sub("^[[:space:]]*", "", out[- seq_len(pos) ])
out <- sub("[[:space:]]*$", "", out)
omegahat/XML documentation built on Jan. 17, 2024, 6:47 p.m.