library("broadcast")
# matrix example ====
x <- matrix(sample(-1:28), ncol = 5)
colnames(x) <- month.name[1:5]
rownames(x) <- month.abb[1:6]
names(x) <- c(letters[1:20], LETTERS[1:10])
print(x)
#> January February March April May
#> Jan 12 8 24 19 4
#> Feb 6 20 7 17 23
#> Mar 25 22 10 15 27
#> Apr 5 14 18 3 2
#> May 26 13 9 1 -1
#> Jun 11 21 28 0 16
#> attr(,"names")
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_lgl(x)
#> January February March April May
#> Jan TRUE TRUE TRUE TRUE TRUE
#> Feb TRUE TRUE TRUE TRUE TRUE
#> Mar TRUE TRUE TRUE TRUE TRUE
#> Apr TRUE TRUE TRUE TRUE TRUE
#> May TRUE TRUE TRUE TRUE TRUE
#> Jun TRUE TRUE TRUE FALSE TRUE
#> attr(,"names")
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_int(x)
#> January February March April May
#> Jan 12 8 24 19 4
#> Feb 6 20 7 17 23
#> Mar 25 22 10 15 27
#> Apr 5 14 18 3 2
#> May 26 13 9 1 -1
#> Jun 11 21 28 0 16
#> attr(,"names")
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_dbl(x)
#> January February March April May
#> Jan 12 8 24 19 4
#> Feb 6 20 7 17 23
#> Mar 25 22 10 15 27
#> Apr 5 14 18 3 2
#> May 26 13 9 1 -1
#> Jun 11 21 28 0 16
#> attr(,"names")
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_chr(x)
#> January February March April May
#> Jan "12" "8" "24" "19" "4"
#> Feb "6" "20" "7" "17" "23"
#> Mar "25" "22" "10" "15" "27"
#> Apr "5" "14" "18" "3" "2"
#> May "26" "13" "9" "1" "-1"
#> Jun "11" "21" "28" "0" "16"
#> attr(,"names")
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_cplx(x)
#> January February March April May
#> Jan 12+0i 8+0i 24+0i 19+0i 4+0i
#> Feb 6+0i 20+0i 7+0i 17+0i 23+0i
#> Mar 25+0i 22+0i 10+0i 15+0i 27+0i
#> Apr 5+0i 14+0i 18+0i 3+0i 2+0i
#> May 26+0i 13+0i 9+0i 1+0i -1+0i
#> Jun 11+0i 21+0i 28+0i 0+0i 16+0i
#> attr(,"names")
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
as_raw(x)
#> January February March April May
#> Jan 0c 08 18 13 04
#> Feb 06 14 07 11 17
#> Mar 19 16 0a 0f 1b
#> Apr 05 0e 12 03 02
#> May 1a 0d 09 01 00
#> Jun 0b 15 1c 00 10
#> attr(,"names")
#> [1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s"
#> [20] "t" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
################################################################################
# factor example ====
x <- factor(month.abb, levels = month.abb)
names(x) <- month.name
print(x)
#> January February March April May June July August
#> Jan Feb Mar Apr May Jun Jul Aug
#> September October November December
#> Sep Oct Nov Dec
#> Levels: Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
as_lgl(as_int(x) > 6)
#> January February March April May June July August
#> FALSE FALSE FALSE FALSE FALSE FALSE TRUE TRUE
#> September October November December
#> TRUE TRUE TRUE TRUE
as_int(x)
#> January February March April May June July August
#> 1 2 3 4 5 6 7 8
#> September October November December
#> 9 10 11 12
as_dbl(x)
#> January February March April May June July August
#> 1 2 3 4 5 6 7 8
#> September October November December
#> 9 10 11 12
as_chr(x)
#> January February March April May June July August
#> "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug"
#> September October November December
#> "Sep" "Oct" "Nov" "Dec"
as_cplx(x)
#> January February March April May June July August
#> 1+0i 2+0i 3+0i 4+0i 5+0i 6+0i 7+0i 8+0i
#> September October November December
#> 9+0i 10+0i 11+0i 12+0i
as_raw(x)
#> January February March April May June July August
#> 01 02 03 04 05 06 07 08
#> September October November December
#> 09 0a 0b 0ctypecast
Atomic and List Type Casting With Names and Dimensions Preserved
Description
Type casting usually strips away attributes of objects.
The functions provided here preserve dim, dimnames, names, comment, and broadcaster attributes, which may be more convenient for arrays and array-like objects.
The functions are as follows:
-
as_lgl(): converts object to atomic typelogical(TRUE, FALSE, NA). -
as_int(): converts object to atomic typeinteger. -
as_dbl(): converts object to atomic typedouble(AKA numeric). -
as_cplx(): converts object to atomic typecomplex. -
as_chr(): converts object to atomic typecharacter. -
as_raw(): converts object to atomic typeraw. -
as_list(): converts object to recursive typelist.
as_num() is an alias for as_dbl().
as_str() is an alias for as_chr().
as_bool() is an alias for as_lgl().
See also typeof.
Usage
as_lgl(x, ...)
as_bool(x, ...)
as_int(x, ...)
as_dbl(x, ...)
as_num(x, ...)
as_chr(x, ...)
as_str(x, ...)
as_cplx(x, ...)
as_raw(x, ...)
as_list(x, ...)
Arguments
x
|
an R object. |
β¦
|
further arguments passed to or from other methods. |
Value
The converted object.