another experiment

Intro Thoughts

Status Quo

library(tidyverse)

Experiment

do.call(mean, list(x = 1:10, na.rm = T))

## [1] 5.5

do.call(tidypivot::pivot_helper, list(data = tidytitanic::tidy_titanic))

## # A tibble: 1 × 1
##   value
##   <dbl>
## 1  2201

pivot_list <- list(data = tidytitanic::tidy_titanic, 
                   rows = "sex",
                   cols = "age")

do.call(tidypivot::pivot_helper, pivot_list)

## # A tibble: 2 × 3
##   sex    Child Adult
##   <fct>  <dbl> <dbl>
## 1 Male      64  1667
## 2 Female    45   425

Closing remarks, Other Relevant Work, Caveats