In yonicd/ripe: Rerun 'Magrittr' Pipelines

set.seed(123)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  cache = TRUE
)

library(ripe)

replicate

stats::runif(20)%>%
  ripe(replicate,n=2,simplify=FALSE)

stats::runif(20)%>%
  sample(10)%>%
  ripe(replicate,n=3,simplify=FALSE)

stats::runif(20)%>%
  sample(10)%>%
  utils::head(5)%>%
  ripe(replicate,n=4,simplify=FALSE)

apply

stats::runif(20)%>%
  sample(10)%>%
  utils::head(5)%>%
  ripe(lapply, X=1:4)

mclapply

(ncores <- parallel::detectCores())

stats::runif(20)%>%
  sample(10)%>%
  utils::head(5)%>%
  ripe(parallel::mclapply, X=1:4, mc.cores = pmin(1,ncores-1))

purrr

iris %>% 
  dplyr::sample_n(5) %>% 
  ripe(purrr::rerun,.n=3)

iris %>% 
  dplyr::select(1:2) %>% 
  dplyr::sample_n(20) %>% 
  ripe(purrr::rerun,.n=1)

iris %>% 
  dplyr::select(1:2)%>% 
  dplyr::sample_n(20) %>% 
  dplyr::slice(1:5) %>%
  ripe(purrr::rerun,.n=3)

yonicd/ripe documentation built on Dec. 9, 2019, 8:57 a.m.