Unfortunately, I ran into a bit of trouble saving a dam TSV (batch chars in facility names is culprit I think). I tried:
write.table(ECHO_Facilities,"ECHO_Facilities.txt",append = FALSE, quote = TRUE, sep="\t")
...
ECHO_Facilities <- read.table("ECHO_Facilities.txt", sep="\t")
But got an error in read.table() call as:
Error in scan(file = file, what = what, sep = sep, quote = quote, dec = dec, :
line 2120 did not have 46 elements