# NOT RUN {
x <- data.frame(
check.names = FALSE,
stringsAsFactors = TRUE,
person = 1:3,
`name, suffix` = c("Bill Smith", 'Joseph "Joe" Hancock', "Mary Laguire, DDS")
)
file <- tempfile()
as.csv(x,file)
y <- as.csv(file,as.is=FALSE)
attr(y,'source')
attr(y,'source') <- NULL
x
y
stopifnot(identical(x,y))
# }
Run the code above in your browser using DataLab