x <- fts()
colnames(x) <- "big.ass.black.dog"
csv.fname <- paste(tempfile(),".csv",sep="")
write.csv.fts(x,csv.fname)
y.csv <- read.csv.fts(csv.fname)
all.equal(x,y.csv)
rds.fname <- paste(tempfile(),".fts",sep="")
write.rds.fts(x,rds.fname)
y.rds <- read.rds.fts(rds.fname)
all.equal(x,y.rds)
Run the code above in your browser using DataLab