a R binding for snappy, the google compressor