knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
Unless you need
curry()
orcurry_fn()
, you should use the more versatile gestalt package, which includesfn()
.
Low-Cost Anonymous Functions
nofrills is a lightweight R package that provides fn()
, a more powerful
variation of function()
that:
costs less — enables tidyverse quasiquotation so you don’t pay the price of functional impurity
has the same great taste — supports a superset of function()
’s syntax
and capabilities
is less filling —
r
fn(x, y = 1 ~ x + y)
is equivalent to
r
function(x, y = 1) x + y
install.packages("nofrills")
Alternatively, install the development version from GitHub:
# install.packages("devtools") devtools::install_github("egnha/nofrills")
library(nofrills)
function()
but shorterfn(x ~ x + 1) fn(x, y ~ x + y) fn(x, y = 2 ~ x + y) fn(x, y = 1, ... ~ log(x + y, ...)) # the only exception, cf. alist() fn(x, ... = , y ~ log(x + y, ...)) fn(~ NA)
z <- 0 fn(x, y = !!z ~ x + y) fn(x ~ x > !!z)
arg <- "y" fn(x, !!arg := 0 ~ x + !!as.name(arg))
args <- alist(x, y = 0) fn(!!!args, ~ x + y) # note the one-sided formula
QUQ()
, QUQS()
library(dplyr) summariser <- quote(mean) my_summarise <- fn(df, ... ~ { group_by <- quos(...) df %>% group_by(QUQS(group_by)) %>% summarise(a = (!!summariser)(a)) }) my_summarise
(Source: Programming with dplyr)
curry_fn()
The syntax is the same as fn()
. Using the literal unquoting operators QUQ()
,
QUQS()
, you can “delay” unquoting to embed argument values in the innermost
function:
compare_to <- curry_fn(target, x ~ identical(x, QUQ(target))) is_this <- compare_to("this") # The embedded value "this" renders the source comprehensible is_this
curry()
curry(function(x, y, z = 0) x + y + z) double <- curry(`*`)(2) double(3)
Functions in R are generally impure, i.e., the return value of a function will not in general be determined by the value of its inputs alone. This is because a function may depend on mutable objects in its lexical scope. Normally this isn’t an issue. But if you are working interactively and sourcing files into the global environment, say, or using a notebook interface (like Jupyter or R Notebook), it can be tricky to ensure that you haven’t unwittingly mutated an object that an earlier function depends upon.
Consider the following function:
r
a <- 1
foo <- function(x) x + a
What is the value of foo(1)
? It is not necessarily 2
because the value
of a
may have changed between the creation of foo()
and the calling
of foo(1)
:
```r
foo(1)
a <- 0
foo(1)
``
In other words,
foo()is impure because the value of
foo(x)depends not
only on the value of
xbut also on the _externally mutable_ value of
a`.
fn()
enables you to write pure(r) functions by using quasiquotation to
eliminate such indeterminacy.
With fn()
, you can unquote a
to capture its value at the point of
creation:
r
a <- 1
foo <- fn(x ~ x + !!a)
Now foo()
is a pure function, unaffected by changes in its lexical scope:
```r
foo(1)
a <- 0
foo(1) ```
Alternative anonymous-function constructors (which don’t support quasiquotation) include:
The rlang package by Lionel Henry and Hadley Wickham makes nofrills possible. Crucially, rlang provides the engine for quasiquotation and expression capture.
MIT Copyright © 2017–22 Eugene Ha
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.