LZ4_RA.max does not work

[zhengxwen]

library(gdsfmt)

v <- sample(c(0,1), 10000, replace=T)

f <- createfn.gds("t.gds")

n1 <- add.gdsn(f, "t1", v, compress="LZ4_RA", closezip=T)
n2 <- add.gdsn(f, "t2", v, compress="LZ4_RA.max", closezip=T)

f
closefn.gds(f)

File: /work/tmp/t.gds (84.3K)
+    [  ]
|--+ t1   { Float64 10000 LZ4_ra(6.90%), 5.4K }
\--+ t2   { Float64 10000 LZ4_ra(100.4%), 78.5K }