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