Decode data that uses run-length encoding
Examples
data(DFrame, package = "AcidTest")
## DFrame ====
object <- DFrame
object <- encode(object)
lapply(object, class)
#> $genotype
#> [1] "Rle"
#> attr(,"package")
#> [1] "S4Vectors"
#>
#> $treatment
#> [1] "Rle"
#> attr(,"package")
#> [1] "S4Vectors"
#>
object <- decode(object)
lapply(object, class)
#> $genotype
#> [1] "factor"
#>
#> $treatment
#> [1] "factor"
#>