Encode using run-length encoding
Usage
encode(x, ...)
# S4 method for Date
encode(x)
# S4 method for DFrame
encode(x, j = NULL)
# S4 method for Ranges
encode(x)
# S4 method for Rle
encode(x)
# S4 method for atomic
encode(x)
# S4 method for factor
encode(x)
Examples
## DFrame ====
binary <- seq(from = 0L, to = 1L)
object <- S4Vectors::DataFrame(
"a" = rep(x = binary, times = 50L),
"b" = rep(x = binary, each = 50L)
)
lapply(object, class)
#> $a
#> [1] "integer"
#>
#> $b
#> [1] "integer"
#>
object <- encode(object)
lapply(object, class)
#> $a
#> [1] "Rle"
#> attr(,"package")
#> [1] "S4Vectors"
#>
#> $b
#> [1] "Rle"
#> attr(,"package")
#> [1] "S4Vectors"
#>