wrapr :: lambda的缩写在Windows

Question

在wrapr函数的插图中，写入以下代码应该可以工作，尽管不遵守函数名称的标准命名用法。

library(wrapr)
wrapr::defineLambda()
sapply(1:4, λ(x, x^2))

它在我的LINUX机器上有效，但在Windows上，解释器似乎拒绝特殊字符。是否有一些选项可以指定示例工作？

Answer 1

我认为应该在defineLambda()电话

中调用sapply

sapply(1:4, defineLambda()(x, x^2))
#[1]  1  4  9 16

或

sapply(1:4, 'λ'(x, x^2))
#[1]  1  4  9 16

Answer 2

如果您关注的是单字符缩写，那么它适用于widnows上的任何字母。 e.g。

a <- lambda(x, x^2)
sapply(1:4, a)

给出

[1]  1  4  9 16

我承认这个特殊角色不会在Windows上工作，这很有趣。

This answer建议使用backticks来使用特殊字符，例如：

`\λ` <- lambda(x, x^2)
sapply(1:4, `\λ`)

给出：

[1]  1  4  9 16