file <- tempfile()
qsave(mtcars, file)
attr1 <- qattributes(file)
attr2 <- attributes(qread(file))
print(attr1)
# $names
# [1] "IAU Name" "Designation" "Const." ...
# $row.names
# [1] 1 2 3 4 5
# $class
# [1] "data.frame"
identical(attr1, attr2) # TRUE
Run the code above in your browser using DataLab