MOVED Split to chunks of size n

Usage

chunks_of_n(d, n, label = NULL, even = FALSE, pattern = NULL)

Arguments

d: data. Can be vector or data frame.
n: number of chunks
label: naming prefix for chunk names
even: boolean to set if size of chunks should be evenly distributed.
pattern: regex pattern to extract names from provided vector. If data frame, will assume first column is name.

Value

List of length n

Examples

tail(chunks_of_n(seq_len(100),7),3)
#> $`13`
#> [1] 85 86 87 88 89 90 91
#> 
#> $`14`
#> [1] 92 93 94 95 96 97 98
#> 
#> $`15`
#> [1]  99 100
#> 
tail(chunks_of_n(seq_len(100),7,even=TRUE),3)
#> $`13`
#> [1] 83 84 85 86 87 88
#> 
#> $`14`
#> [1] 89 90 91 92 93 94
#> 
#> $`15`
#> [1]  95  96  97  98  99 100
#> 
ds <- data.frame(nm=paste0("Sub",
add_padding(rownames(stRoke::talos))),stRoke::talos)
head(chunks_of_n(ds,7,pattern="Sub[0-9]{3}",label="grp"),2)
#> $`grp-Sub038-Sub011`
#>         nm  rtreat mrs_1 mrs_6 hypertension diabetes   civil
#> 38  Sub038  Active     1     1           no       no partner
#> 434 Sub434  Active     1     1          yes       no partner
#> 588 Sub588  Active     2     2          yes       no partner
#> 42  Sub042  Active     0     0          yes       no partner
#> 160 Sub160 Placebo     1     1          yes       no partner
#> 174 Sub174  Active     0     1          yes       no   alone
#> 11  Sub011 Placebo     2     1          yes      yes   alone
#> 
#> $`grp-Sub601-Sub062`
#>         nm  rtreat mrs_1 mrs_6 hypertension diabetes   civil
#> 601 Sub601 Placebo     1     1           no       no partner
#> 412 Sub412  Active     0     0          yes       no partner
#> 88  Sub088 Placebo     1     1          yes      yes partner
#> 56  Sub056 Placebo     0     0           no       no   alone
#> 235 Sub235 Placebo     2     1          yes      yes   alone
#> 205 Sub205  Active     3     3           no       no partner
#> 62  Sub062  Active     2     2          yes       no   alone
#> 
## Please notice that no sorting is performed. This is on purpose to preserve
## original sorting. If sorting is intended, try something like this:
ds[order(ds$nm),] |> chunks_of_n(7,pattern="Sub[0-9]{3}",label="grp") |> 
head(2)
#> $`grp-Sub001-Sub020`
#>        nm  rtreat mrs_1 mrs_6 hypertension diabetes   civil
#> 1  Sub001 Placebo     0     0          yes       no partner
#> 2  Sub002 Placebo     2     1           no       no partner
#> 7  Sub007 Placebo     1     1          yes       no partner
#> 9  Sub009 Placebo     1     1           no       no partner
#> 11 Sub011 Placebo     2     1          yes      yes   alone
#> 13 Sub013  Active     1     1          yes       no partner
#> 20 Sub020 Placebo     1     2           no       no   alone
#> 
#> $`grp-Sub022-Sub038`
#>        nm  rtreat mrs_1 mrs_6 hypertension diabetes   civil
#> 22 Sub022 Placebo     2     1           no       no partner
#> 26 Sub026 Placebo     2     4           no       no   alone
#> 28 Sub028  Active     2     2          yes       no partner
#> 29 Sub029 Placebo     2     2           no       no   alone
#> 33 Sub033 Placebo     0     0          yes       no   alone
#> 34 Sub034  Active     1     1           no       no   alone
#> 38 Sub038  Active     1     1           no       no partner
#>