sapply(c("pipeR", "dplyr", "purrr"), require, character.only = TRUE)
要求されたパッケージ pipeR をロード中です
要求されたパッケージ dplyr をロード中です
次のパッケージを付け加えます: ‘dplyr’
以下のオブジェクトは ‘package:stats’ からマスクされています:
filter, lag
以下のオブジェクトは ‘package:base’ からマスクされています:
intersect, setdiff, setequal, union
要求されたパッケージ purrr をロード中です
次のパッケージを付け加えます: ‘purrr’
以下のオブジェクトは ‘package:dplyr’ からマスクされています:
contains, order_by
pipeR dplyr purrr
TRUE TRUE TRUE
l <- list(
d1 = data_frame(v1 = month.abb, v2 = runif(12, min = 0, max = 100)),
d2 = data_frame(v1 = month.abb, v2 = runif(12, min = 0, max = 1000))
)
l
$d1
$d2
NA
names(l)
[1] "d1" "d2"
Access list names
in lapply function
lapply
over names(l)
names(l) %>>% lapply(function(x){
l[[x]] %>>% dplyr::mutate(dname = x)
})
[[1]]
[[2]]
NA
purrr::map2()
purrr::map2(l, names(l), function(x, y){
x %>>% dplyr::mutate(dname = y)
})
$d1
$d2
NA
devtools::session_info()
Session info -----------------------------------------------------------
setting value
version R version 3.3.2 (2016-10-31)
system x86_64, mingw32
ui RStudio (1.0.44)
language (EN)
collate Japanese_Japan.932
tz Asia/Tokyo
date 2016-11-29
Packages ---------------------------------------------------------------
package * version date source
assertthat 0.1 2013-12-06 CRAN (R 3.2.1)
DBI 0.5-1 2016-09-10 CRAN (R 3.2.5)
devtools 1.12.0 2016-06-24 CRAN (R 3.3.1)
digest 0.6.10 2016-08-02 CRAN (R 3.3.1)
dplyr * 0.5.0 2016-06-24 CRAN (R 3.2.5)
knitr 1.15 2016-11-09 CRAN (R 3.3.2)
lazyeval 0.2.0 2016-06-12 CRAN (R 3.2.5)
magrittr 1.5 2014-11-22 CRAN (R 3.2.1)
memoise 1.0.0 2016-01-29 CRAN (R 3.2.3)
pipeR * 0.6.1.3 2016-04-04 CRAN (R 3.3.1)
purrr * 0.2.2 2016-06-18 CRAN (R 3.2.5)
R6 2.2.0 2016-10-05 CRAN (R 3.3.2)
Rcpp 0.12.7 2016-09-05 CRAN (R 3.2.5)
tibble 1.2 2016-08-26 CRAN (R 3.2.5)
withr 1.0.2 2016-06-20 CRAN (R 3.2.5)