library("broadcast")
x <- array(sample(month.abb), c(10, 2))
y <- array(sample(1:10), c(10, 2, 3))
print(x)
## [,1] [,2]
## [1,] "Dec" "Apr"
## [2,] "May" "Nov"
## [3,] "Oct" "Dec"
## [4,] "Jan" "May"
## [5,] "Sep" "Oct"
## [6,] "Aug" "Jan"
## [7,] "Jun" "Sep"
## [8,] "Jul" "Aug"
## [9,] "Feb" "Jun"
## [10,] "Mar" "Jul"
print(y)
## , , 1
##
## [,1] [,2]
## [1,] 1 1
## [2,] 4 4
## [3,] 3 3
## [4,] 8 8
## [5,] 7 7
## [6,] 2 2
## [7,] 10 10
## [8,] 6 6
## [9,] 9 9
## [10,] 5 5
##
## , , 2
##
## [,1] [,2]
## [1,] 1 1
## [2,] 4 4
## [3,] 3 3
## [4,] 8 8
## [5,] 7 7
## [6,] 2 2
## [7,] 10 10
## [8,] 6 6
## [9,] 9 9
## [10,] 5 5
##
## , , 3
##
## [,1] [,2]
## [1,] 1 1
## [2,] 4 4
## [3,] 3 3
## [4,] 8 8
## [5,] 7 7
## [6,] 2 2
## [7,] 10 10
## [8,] 6 6
## [9,] 9 9
## [10,] 5 5
bc_strrep(x, y)
## , , 1
##
## [,1] [,2]
## [1,] "Dec" "Apr"
## [2,] "MayMayMayMay" "NovNovNovNov"
## [3,] "OctOctOct" "DecDecDec"
## [4,] "JanJanJanJanJanJanJanJan" "MayMayMayMayMayMayMayMay"
## [5,] "SepSepSepSepSepSepSep" "OctOctOctOctOctOctOct"
## [6,] "AugAug" "JanJan"
## [7,] "JunJunJunJunJunJunJunJunJunJun" "SepSepSepSepSepSepSepSepSepSep"
## [8,] "JulJulJulJulJulJul" "AugAugAugAugAugAug"
## [9,] "FebFebFebFebFebFebFebFebFeb" "JunJunJunJunJunJunJunJunJun"
## [10,] "MarMarMarMarMar" "JulJulJulJulJul"
##
## , , 2
##
## [,1] [,2]
## [1,] "Dec" "Apr"
## [2,] "MayMayMayMay" "NovNovNovNov"
## [3,] "OctOctOct" "DecDecDec"
## [4,] "JanJanJanJanJanJanJanJan" "MayMayMayMayMayMayMayMay"
## [5,] "SepSepSepSepSepSepSep" "OctOctOctOctOctOctOct"
## [6,] "AugAug" "JanJan"
## [7,] "JunJunJunJunJunJunJunJunJunJun" "SepSepSepSepSepSepSepSepSepSep"
## [8,] "JulJulJulJulJulJul" "AugAugAugAugAugAug"
## [9,] "FebFebFebFebFebFebFebFebFeb" "JunJunJunJunJunJunJunJunJun"
## [10,] "MarMarMarMarMar" "JulJulJulJulJul"
##
## , , 3
##
## [,1] [,2]
## [1,] "Dec" "Apr"
## [2,] "MayMayMayMay" "NovNovNovNov"
## [3,] "OctOctOct" "DecDecDec"
## [4,] "JanJanJanJanJanJanJanJan" "MayMayMayMayMayMayMayMay"
## [5,] "SepSepSepSepSepSepSep" "OctOctOctOctOctOctOct"
## [6,] "AugAug" "JanJan"
## [7,] "JunJunJunJunJunJunJunJunJunJun" "SepSepSepSepSepSepSepSepSepSep"
## [8,] "JulJulJulJulJulJul" "AugAugAugAugAugAug"
## [9,] "FebFebFebFebFebFebFebFebFeb" "JunJunJunJunJunJunJunJunJun"
## [10,] "MarMarMarMarMar" "JulJulJulJulJul"bc_strrep
Broadcasted strrep
Description
The bc_strrep() method is a broadcasted form of strrep.
Usage
bc_strrep(x, y, ...)
## S4 method for signature 'ANY'
bc_strrep(x, y)
Arguments
x
|
vector/array of type character.
|
y
|
vector/array of type integer.
|
β¦
|
further arguments passed to or from methods. |
Value
A character array as a result of the broadcasted repetition operation.