R scripts demoing XML webscraping