typecast

Atomic and List Type Casting With Names and Dimensions Preserved

Description

Type casting usually strips away attributes of objects.
The functions provided here preserve dimensions, dimnames, names, and broadcaster attributes, which may be more convenient for arrays and array-like objects.

The functions are as follows:

  • as_bool(): converts object to atomic type logical (TRUE, FALSE, NA).

  • as_int(): converts object to atomic type integer.

  • as_dbl(): converts object to atomic type double (AKA numeric).

  • as_cplx(): converts object to atomic type complex.

  • as_chr(): converts object to atomic type character.

  • as_raw(): converts object to atomic type raw.

  • as_list(): converts object to recursive type list.

as_num() is an alias for as_dbl().
as_str() is an alias for as_chr().

See also typeof.

Usage

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.

Examples

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       1       10     7    24  19
## Feb       4       16    28    25  23
## Mar       0       26    22     2  21
## Apr       9       18    11    13  15
## May       6       17     5    -1   8
## Jun      27       12    20    14   3
## 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_bool(x)
##     January February March April  May
## Jan    TRUE     TRUE  TRUE  TRUE TRUE
## Feb    TRUE     TRUE  TRUE  TRUE TRUE
## Mar   FALSE     TRUE  TRUE  TRUE TRUE
## Apr    TRUE     TRUE  TRUE  TRUE TRUE
## May    TRUE     TRUE  TRUE  TRUE TRUE
## Jun    TRUE     TRUE  TRUE  TRUE 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       1       10     7    24  19
## Feb       4       16    28    25  23
## Mar       0       26    22     2  21
## Apr       9       18    11    13  15
## May       6       17     5    -1   8
## Jun      27       12    20    14   3
## 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       1       10     7    24  19
## Feb       4       16    28    25  23
## Mar       0       26    22     2  21
## Apr       9       18    11    13  15
## May       6       17     5    -1   8
## Jun      27       12    20    14   3
## 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 "1"     "10"     "7"   "24"  "19"
## Feb "4"     "16"     "28"  "25"  "23"
## Mar "0"     "26"     "22"  "2"   "21"
## Apr "9"     "18"     "11"  "13"  "15"
## May "6"     "17"     "5"   "-1"  "8" 
## Jun "27"    "12"     "20"  "14"  "3" 
## 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    1+0i    10+0i  7+0i 24+0i 19+0i
## Feb    4+0i    16+0i 28+0i 25+0i 23+0i
## Mar    0+0i    26+0i 22+0i  2+0i 21+0i
## Apr    9+0i    18+0i 11+0i 13+0i 15+0i
## May    6+0i    17+0i  5+0i -1+0i  8+0i
## Jun   27+0i    12+0i 20+0i 14+0i  3+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      01       0a    07    18  13
## Feb      04       10    1c    19  17
## Mar      00       1a    16    02  15
## Apr      09       12    0b    0d  0f
## May      06       11    05    00  08
## Jun      1b       0c    14    0e  03
## 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_bool(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        0c