I miss a way to add data to an SO answer in a transparent manner. My experience is that the structure object from dput() at times confuses inexperi
structure
dput()
You could simply write to a compressed connection.
gz <- gzfile("foo.gz", open="wt") dput(Df, gz) close(gz)