Split to chunks of size n
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.
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
#>