x <- data.frame(int = sample(1e3, replace=TRUE),
num = rnorm(1e3),
char = sample(state.name, 1e3, replace=TRUE),
stringsAsFactors = FALSE)
myfile <- tempfile()
qd_save(x, myfile)
x2 <- qd_read(myfile)
identical(x, x2) # returns TRUE
Run the code above in your browser using DataLab