Iterate over input and return list(s)

lap(.data, .f, ...)

Arguments

.data

Input vector

.f

Function or formula call that assumes element is .x

...

Other values passed to function call.

Value

A list

Examples

## return string list lap(letters, ~ paste0(.x, "."))
#> [[1]] #> [1] "a." #> #> [[2]] #> [1] "b." #> #> [[3]] #> [1] "c." #> #> [[4]] #> [1] "d." #> #> [[5]] #> [1] "e." #> #> [[6]] #> [1] "f." #> #> [[7]] #> [1] "g." #> #> [[8]] #> [1] "h." #> #> [[9]] #> [1] "i." #> #> [[10]] #> [1] "j." #> #> [[11]] #> [1] "k." #> #> [[12]] #> [1] "l." #> #> [[13]] #> [1] "m." #> #> [[14]] #> [1] "n." #> #> [[15]] #> [1] "o." #> #> [[16]] #> [1] "p." #> #> [[17]] #> [1] "q." #> #> [[18]] #> [1] "r." #> #> [[19]] #> [1] "s." #> #> [[20]] #> [1] "t." #> #> [[21]] #> [1] "u." #> #> [[22]] #> [1] "v." #> #> [[23]] #> [1] "w." #> #> [[24]] #> [1] "x." #> #> [[25]] #> [1] "y." #> #> [[26]] #> [1] "z." #>
## return list of columns lap(mtcars[1:5, ], as.character)
#> $mpg #> [1] "21" "21" "22.8" "21.4" "18.7" #> #> $cyl #> [1] "6" "6" "4" "6" "8" #> #> $disp #> [1] "160" "160" "108" "258" "360" #> #> $hp #> [1] "110" "110" "93" "110" "175" #> #> $drat #> [1] "3.9" "3.9" "3.85" "3.08" "3.15" #> #> $wt #> [1] "2.62" "2.875" "2.32" "3.215" "3.44" #> #> $qsec #> [1] "16.46" "17.02" "18.61" "19.44" "17.02" #> #> $vs #> [1] "0" "0" "1" "1" "0" #> #> $am #> [1] "1" "1" "1" "0" "0" #> #> $gear #> [1] "4" "4" "4" "3" "3" #> #> $carb #> [1] "4" "4" "1" "1" "2" #>