library("broadcast")
x <- array(
sample(list(letters, month.name, 1:10 ~ "foo"), prod(4:2), TRUE),
dim = 4:2,
dimnames = list(NULL, LETTERS[1:3], c("x", "y"))
)
# summarizing ====
summary(x) # dimensional information is lost
## Length Class Mode
## [1,] 3 formula call
## [2,] 12 -none- character
## [3,] 12 -none- character
## [4,] 26 -none- character
## [5,] 12 -none- character
## [6,] 12 -none- character
## [7,] 3 formula call
## [8,] 3 formula call
## [9,] 26 -none- character
## [10,] 3 formula call
## [11,] 12 -none- character
## [12,] 3 formula call
## [13,] 12 -none- character
## [14,] 3 formula call
## [15,] 12 -none- character
## [16,] 3 formula call
## [17,] 3 formula call
## [18,] 26 -none- character
## [19,] 12 -none- character
## [20,] 12 -none- character
## [21,] 12 -none- character
## [22,] 26 -none- character
## [23,] 3 formula call
## [24,] 3 formula call
# In the following instances, dimensional position info is retained:
cast_dim2flat(x) |> summary()
## Length Class Mode
## [1, 'A', 'x'] 3 formula call
## [2, 'A', 'x'] 12 -none- character
## [3, 'A', 'x'] 12 -none- character
## [4, 'A', 'x'] 26 -none- character
## [1, 'B', 'x'] 12 -none- character
## [2, 'B', 'x'] 12 -none- character
## [3, 'B', 'x'] 3 formula call
## [4, 'B', 'x'] 3 formula call
## [1, 'C', 'x'] 26 -none- character
## [2, 'C', 'x'] 3 formula call
## [3, 'C', 'x'] 12 -none- character
## [4, 'C', 'x'] 3 formula call
## [1, 'A', 'y'] 12 -none- character
## [2, 'A', 'y'] 3 formula call
## [3, 'A', 'y'] 12 -none- character
## [4, 'A', 'y'] 3 formula call
## [1, 'B', 'y'] 3 formula call
## [2, 'B', 'y'] 26 -none- character
## [3, 'B', 'y'] 12 -none- character
## [4, 'B', 'y'] 12 -none- character
## [1, 'C', 'y'] 12 -none- character
## [2, 'C', 'y'] 26 -none- character
## [3, 'C', 'y'] 3 formula call
## [4, 'C', 'y'] 3 formula call
cast_dim2flat(x[1:3, 1:2, 2, drop = FALSE]) |> summary()
## Length Class Mode
## [1, 'A', 'y'] 12 -none- character
## [2, 'A', 'y'] 3 formula call
## [3, 'A', 'y'] 12 -none- character
## [1, 'B', 'y'] 3 formula call
## [2, 'B', 'y'] 26 -none- character
## [3, 'B', 'y'] 12 -none- character
cast_dim2flat(x[1:3, 1:2, 2, drop = TRUE]) |> summary()
## Length Class Mode
## [1, 'A'] 12 -none- character
## [2, 'A'] 3 formula call
## [3, 'A'] 12 -none- character
## [1, 'B'] 3 formula call
## [2, 'B'] 26 -none- character
## [3, 'B'] 12 -none- character
# printing ====
print(x) # too compact
## , , x
##
## A B C
## [1,] 1:10 ~ "foo" character,12 character,26
## [2,] character,12 character,12 1:10 ~ "foo"
## [3,] character,12 1:10 ~ "foo" character,12
## [4,] character,26 1:10 ~ "foo" 1:10 ~ "foo"
##
## , , y
##
## A B C
## [1,] character,12 1:10 ~ "foo" character,12
## [2,] 1:10 ~ "foo" character,26 character,26
## [3,] character,12 character,12 1:10 ~ "foo"
## [4,] 1:10 ~ "foo" character,12 1:10 ~ "foo"
cast_dim2flat(x) |> print() # much less compact
## $`[1, 'A', 'x']`
## 1:10 ~ "foo"
##
## $`[2, 'A', 'x']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[3, 'A', 'x']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[4, 'A', 'x']`
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "u" "v" "w" "x" "y" "z"
##
## $`[1, 'B', 'x']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[2, 'B', 'x']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[3, 'B', 'x']`
## 1:10 ~ "foo"
##
## $`[4, 'B', 'x']`
## 1:10 ~ "foo"
##
## $`[1, 'C', 'x']`
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "u" "v" "w" "x" "y" "z"
##
## $`[2, 'C', 'x']`
## 1:10 ~ "foo"
##
## $`[3, 'C', 'x']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[4, 'C', 'x']`
## 1:10 ~ "foo"
##
## $`[1, 'A', 'y']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[2, 'A', 'y']`
## 1:10 ~ "foo"
##
## $`[3, 'A', 'y']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[4, 'A', 'y']`
## 1:10 ~ "foo"
##
## $`[1, 'B', 'y']`
## 1:10 ~ "foo"
##
## $`[2, 'B', 'y']`
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "u" "v" "w" "x" "y" "z"
##
## $`[3, 'B', 'y']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[4, 'B', 'y']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[1, 'C', 'y']`
## [1] "January" "February" "March" "April" "May" "June"
## [7] "July" "August" "September" "October" "November" "December"
##
## $`[2, 'C', 'y']`
## [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
## [20] "t" "u" "v" "w" "x" "y" "z"
##
## $`[3, 'C', 'y']`
## 1:10 ~ "foo"
##
## $`[4, 'C', 'y']`
## 1:10 ~ "foo"cast_dim2flat
Cast Dimensional List into a Flattened List
Description
cast_dim2flat() casts a dimensional list (i.e. recursive array) into a flat list (i.e. recursive vector), but with names that indicate the original dimensional positions of the elements.
Primary purpose for this function is to facilitate printing or summarizing dimensional lists.
Usage
cast_dim2flat(x, ...)
## Default S3 method:
cast_dim2flat(x, ...)
Arguments
x
|
a list |
…
|
further arguments passed to or from methods. |
Value
A flattened list, with names that indicate the original dimensional positions of the elements.