# NOT RUN {
# Creating small file
tf <- tempfile()
cat(file=tf, "Hello world!")
# Compressing
tf.xz <- xzcompress(tf)
print(file.info(tf.xz))
# Uncompressing
tf <- xzuncompress(tf.xz)
print(file.info(tf))
file.remove(tf)
# }
Run the code above in your browser using DataLab