knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "README-"
)

tidyx

mapx

library(tidyx)
library(tidyverse)

l1 <- list(a = "foo", b = "bar")

l1 %>% mapx(~ paste(., .i, .n))

l1 %>% mapx(~ paste(., .i, .n), .t = "chr")

l1 %>% mapx(paste,"X")

l1 %>% mapx(function(x,.n) paste(x,.n),"[.n param]")

l1 %>% mapx(function(x) paste(x, .n))

mutatex

iris[c(1:2,51:52),] %>% mutatex(z = mean(Sepal.Length),.by = vars(Species))

iris[c(1:2,51:52),] %>% mutatex(z = mean(Sepal.Length),.by = "Species")

mutate_ifx

iris %>% head %>% mutate_ifx(funs(z = mean),.at = ~startsWith(.,"Pet"))

iris %>% head %>% mutate_ifx(funs(z = mean),.at = vars(Petal.Length))

iris %>% head %>% mutate_ifx(funs(z = mean),.at = vars(Petal.Length), .keep = "new")

summarizex

iris[c(1:2,51:52),] %>% summarizex(z = mean(Sepal.Length),.by = vars(Species))

iris[c(1:2,51:52),] %>% summarizex(z = mean(Sepal.Length),.by = "Species")

slicex

iris %>% slicex(1:2, .by= vars(Species))


moodymudskipper/tidyx documentation built on May 17, 2019, 10:39 a.m.