Skip to content

Instantly share code, notes, and snippets.

@grayskripko
Created February 5, 2019 14:36
Show Gist options
  • Save grayskripko/13b241df15daa0a802d10758fe30d13e to your computer and use it in GitHub Desktop.
Save grayskripko/13b241df15daa0a802d10758fe30d13e to your computer and use it in GitHub Desktop.
partial() vs do.call()
# now it works!
mean_cust <- function(...) partial(mean, !!!list(...))
mean_cust(na.rm = T)(c(1:3, NA))
# >[1] 2
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment