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

bc_strrep(x, y)
#> , , 1
#> 
#>       [,1]                             [,2]                            
#>  [1,] "DecDecDecDec"                   "SepSepSepSep"                  
#>  [2,] "JanJanJan"                      "MarMarMar"                     
#>  [3,] "JunJunJunJunJunJunJunJun"       "DecDecDecDecDecDecDecDec"      
#>  [4,] "AugAug"                         "JanJan"                        
#>  [5,] "OctOctOctOctOctOct"             "JunJunJunJunJunJun"            
#>  [6,] "Apr"                            "Aug"                           
#>  [7,] "JulJulJulJulJul"                "OctOctOctOctOct"               
#>  [8,] "NovNovNovNovNovNovNovNovNov"    "AprAprAprAprAprAprAprAprApr"   
#>  [9,] "MayMayMayMayMayMayMayMayMayMay" "JulJulJulJulJulJulJulJulJulJul"
#> [10,] "FebFebFebFebFebFebFeb"          "NovNovNovNovNovNovNov"         
#> 
#> , , 2
#> 
#>       [,1]                             [,2]                            
#>  [1,] "DecDecDecDec"                   "SepSepSepSep"                  
#>  [2,] "JanJanJan"                      "MarMarMar"                     
#>  [3,] "JunJunJunJunJunJunJunJun"       "DecDecDecDecDecDecDecDec"      
#>  [4,] "AugAug"                         "JanJan"                        
#>  [5,] "OctOctOctOctOctOct"             "JunJunJunJunJunJun"            
#>  [6,] "Apr"                            "Aug"                           
#>  [7,] "JulJulJulJulJul"                "OctOctOctOctOct"               
#>  [8,] "NovNovNovNovNovNovNovNovNov"    "AprAprAprAprAprAprAprAprApr"   
#>  [9,] "MayMayMayMayMayMayMayMayMayMay" "JulJulJulJulJulJulJulJulJulJul"
#> [10,] "FebFebFebFebFebFebFeb"          "NovNovNovNovNovNovNov"         
#> 
#> , , 3
#> 
#>       [,1]                             [,2]                            
#>  [1,] "DecDecDecDec"                   "SepSepSepSep"                  
#>  [2,] "JanJanJan"                      "MarMarMar"                     
#>  [3,] "JunJunJunJunJunJunJunJun"       "DecDecDecDecDecDecDecDec"      
#>  [4,] "AugAug"                         "JanJan"                        
#>  [5,] "OctOctOctOctOctOct"             "JunJunJunJunJunJun"            
#>  [6,] "Apr"                            "Aug"                           
#>  [7,] "JulJulJulJulJul"                "OctOctOctOctOct"               
#>  [8,] "NovNovNovNovNovNovNovNovNov"    "AprAprAprAprAprAprAprAprApr"   
#>  [9,] "MayMayMayMayMayMayMayMayMayMay" "JulJulJulJulJulJulJulJulJulJul"
#> [10,] "FebFebFebFebFebFebFeb"          "NovNovNovNovNovNovNov"