包装函数；返回函数的函数

Question

我不确定如何为包含magrittr管道(%>%)的东西编写包装器函数。我正在尝试创建一个包装器函数，根据层类型返回addPolyline()、addPolygon()或addCircleMarkers()，但没有成功。似乎答案将在Hadley的高级材料中，但最有可能的是它超出了我的理解。举个简单的例子，我怎样才能让下面的例子工作：

library(leaflet)

wrapper <- function() {
  myfunc <- function() {addPolylines(data = leaflet::atlStorms2005)}
  return(myfunc)
}

# I want this
leaflet() %>% addTiles() %>% addPolylines(data = leaflet::atlStorms2005)

# but I need a wrapper function
leaflet() %>% addTiles() %>% wrapper()

Answer 1

看起来您需要稍微修改一下包装器函数，并在管道中使用%>% wrapper()()。

library(leaflet)

wrapper <- function() {
    myfunc <- function(.) {addPolylines(., data = leaflet::atlStorms2005)}
    return(myfunc)
}

# I want this
leaflet() %>% addTiles() %>% addPolylines(data = leaflet::atlStorms2005)

# but I need a wrapper function
leaflet() %>% addTiles() %>% wrapper()()

Answer 2

看起来你不需要一个返回函数的函数。您只需要一个可以调用其他函数的函数。

wrapper <- function(x) {
  x %>% addPolylines(data = leaflet::atlStorms2005)
}

leaflet() %>% addTiles() %>% wrapper()