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.

Examples

library("broadcast")


x <- array(sample(month.abb), c(10, 2))
y <- array(sample(1:10), c(10, 2, 3))

print(x)
#>       [,1]  [,2] 
#>  [1,] "May" "Mar"
#>  [2,] "Apr" "Jun"
#>  [3,] "Oct" "May"
#>  [4,] "Sep" "Apr"
#>  [5,] "Nov" "Oct"
#>  [6,] "Jul" "Sep"
#>  [7,] "Feb" "Nov"
#>  [8,] "Dec" "Jul"
#>  [9,] "Aug" "Feb"
#> [10,] "Jan" "Dec"
print(y)
#> , , 1
#> 
#>       [,1] [,2]
#>  [1,]    1    1
#>  [2,]    8    8
#>  [3,]    6    6
#>  [4,]    9    9
#>  [5,]    3    3
#>  [6,]   10   10
#>  [7,]    4    4
#>  [8,]    5    5
#>  [9,]    2    2
#> [10,]    7    7
#> 
#> , , 2
#> 
#>       [,1] [,2]
#>  [1,]    1    1
#>  [2,]    8    8
#>  [3,]    6    6
#>  [4,]    9    9
#>  [5,]    3    3
#>  [6,]   10   10
#>  [7,]    4    4
#>  [8,]    5    5
#>  [9,]    2    2
#> [10,]    7    7
#> 
#> , , 3
#> 
#>       [,1] [,2]
#>  [1,]    1    1
#>  [2,]    8    8
#>  [3,]    6    6
#>  [4,]    9    9
#>  [5,]    3    3
#>  [6,]   10   10
#>  [7,]    4    4
#>  [8,]    5    5
#>  [9,]    2    2
#> [10,]    7    7

bc_strrep(x, y)
#> , , 1
#> 
#>       [,1]                             [,2]                            
#>  [1,] "May"                            "Mar"                           
#>  [2,] "AprAprAprAprAprAprAprApr"       "JunJunJunJunJunJunJunJun"      
#>  [3,] "OctOctOctOctOctOct"             "MayMayMayMayMayMay"            
#>  [4,] "SepSepSepSepSepSepSepSepSep"    "AprAprAprAprAprAprAprAprApr"   
#>  [5,] "NovNovNov"                      "OctOctOct"                     
#>  [6,] "JulJulJulJulJulJulJulJulJulJul" "SepSepSepSepSepSepSepSepSepSep"
#>  [7,] "FebFebFebFeb"                   "NovNovNovNov"                  
#>  [8,] "DecDecDecDecDec"                "JulJulJulJulJul"               
#>  [9,] "AugAug"                         "FebFeb"                        
#> [10,] "JanJanJanJanJanJanJan"          "DecDecDecDecDecDecDec"         
#> 
#> , , 2
#> 
#>       [,1]                             [,2]                            
#>  [1,] "May"                            "Mar"                           
#>  [2,] "AprAprAprAprAprAprAprApr"       "JunJunJunJunJunJunJunJun"      
#>  [3,] "OctOctOctOctOctOct"             "MayMayMayMayMayMay"            
#>  [4,] "SepSepSepSepSepSepSepSepSep"    "AprAprAprAprAprAprAprAprApr"   
#>  [5,] "NovNovNov"                      "OctOctOct"                     
#>  [6,] "JulJulJulJulJulJulJulJulJulJul" "SepSepSepSepSepSepSepSepSepSep"
#>  [7,] "FebFebFebFeb"                   "NovNovNovNov"                  
#>  [8,] "DecDecDecDecDec"                "JulJulJulJulJul"               
#>  [9,] "AugAug"                         "FebFeb"                        
#> [10,] "JanJanJanJanJanJanJan"          "DecDecDecDecDecDecDec"         
#> 
#> , , 3
#> 
#>       [,1]                             [,2]                            
#>  [1,] "May"                            "Mar"                           
#>  [2,] "AprAprAprAprAprAprAprApr"       "JunJunJunJunJunJunJunJun"      
#>  [3,] "OctOctOctOctOctOct"             "MayMayMayMayMayMay"            
#>  [4,] "SepSepSepSepSepSepSepSepSep"    "AprAprAprAprAprAprAprAprApr"   
#>  [5,] "NovNovNov"                      "OctOctOct"                     
#>  [6,] "JulJulJulJulJulJulJulJulJulJul" "SepSepSepSepSepSepSepSepSepSep"
#>  [7,] "FebFebFebFeb"                   "NovNovNovNov"                  
#>  [8,] "DecDecDecDecDec"                "JulJulJulJulJul"               
#>  [9,] "AugAug"                         "FebFeb"                        
#> [10,] "JanJanJanJanJanJanJan"          "DecDecDecDecDecDecDec"