<li>

                    <a title="Data table: Grand Falls-Windsor (Census Agglomeration), Newfoundland and Labrador" href="../../details/page.cfm?Lang=E&Geo1=CMA&Code1=010&Geo2=PR&Code2=01&Data=Count&SearchText=Grand%20Falls-Windsor&SearchType=Begins&SearchPR=01&B1=All&GeoLevel=PR&GeoCode=010&TABID=1">Grand Falls-Windsor&nbsp;(<acronym title="Census Agglomeration">CA</acronym>)</a> [<a href="../../details/page_Map_Carte_Detail.cfm?Lang=E&G=1&Geo1=CMA&Code1=010&Geo2=PR&Code2=01&Data=Count&SearchText=&SearchType=Begins&SearchPR=01&B1=All&Custom=&TABID=1&geocode=010" title="Map: Grand Falls-Windsor (Census Agglomeration), Newfoundland and Labrador">map</a>]

         </li>

<li>

                    <a title="Data table: St. John's (Census Metropolitan Area), Newfoundland and Labrador" href="../../details/page.cfm?Lang=E&Geo1=CMA&Code1=001&Geo2=PR&Code2=01&Data=Count&SearchText=St.%20John's&SearchType=Begins&SearchPR=01&B1=All&GeoLevel=PR&GeoCode=001&TABID=1">St. John's&nbsp;(<acronym title="Census Metropolitan Area">CMA</acronym>)</a> [<a href="../../details/page_Map_Carte_Detail.cfm?Lang=E&G=1&Geo1=CMA&Code1=001&Geo2=PR&Code2=01&Data=Count&SearchText=&SearchType=Begins&SearchPR=01&B1=All&Custom=&TABID=1&geocode=001" title="Map: St. John's (Census Metropolitan Area), Newfoundland and Labrador">map</a>]

         </li>


df <- read.table("myFile.txt",sep="n")

tttttt<a title=Data table: St. John's (Census Metropolitan Area), Newfoundland and Labrador href=../../details/page.cfm?Lang=E&Geo1=CMA&Code1=001&Geo2=PR&Code2=01&Data=Count&SearchText=St.%20John's&SearchType=Begins&SearchPR=01&B1=All&GeoLevel=PR&GeoCode=001&TABID=1>St. Johns&nbsp;(<acronym title="Census Metropolitan Area">CMA</acronym>)</a> [<a href="../../details/page_Map_Carte_Detail.cfm?Lang=E&G=1&Geo1=CMA&Code1=001&Geo2=PR&Code2=01&Data=Count&SearchText=&SearchType=Begins&SearchPR=01&B1=All&Custom=&TABID=1&geocode=001" title="Map: St. Johns (Census Metropolitan Area), Newfoundland and Labrador>map</a>]ntttttn             </li>nttt n

read.table("test.txt", sep="n", quote="")
readLines(con=file("test.txt"))