代码之家 › 专栏 › 技术社区 › JasonAizkalns

避免在purr map调用中返回匿名函数中最后计算的表达式

purrr anonymous-function r

JasonAizkalns · 技术社区 · 7 年前

考虑一下:

library(tidyverse)

mtcars %>%
  select(mpg, cyl) %>%
  map(
    function(x) {
      cat("*****HEAD******\n")
      print(head(x))
      cat("*****TAIL******\n")
      print(tail(x))
    }
  )

*****HEAD******
[1] 21.0 21.0 22.8 21.4 18.7 18.1
*****TAIL******
[1] 26.0 30.4 15.8 19.7 15.0 21.4
*****HEAD******
[1] 6 6 4 6 8 6
*****TAIL******
[1] 4 4 8 6 8 4
$`mpg`
[1] 26.0 30.4 15.8 19.7 15.0 21.4

$cyl
[1] 4 4 8 6 8 4

如何避免返回上次计算的表达式(即, tail(x) )?我期望的输出是:

*****HEAD******
[1] 21.0 21.0 22.8 21.4 18.7 18.1
*****TAIL******
[1] 26.0 30.4 15.8 19.7 15.0 21.4
*****HEAD******
[1] 6 6 4 6 8 6
*****TAIL******
[1] 4 4 8 6 8 4

我试验过 return(NULL) , return(NA) 和 return(invisible(x)) 但没有成功。

2 回复 | 直到 7 年前

MHammer 7 年前

walk() map()

capture <- mtcars %>%
  select(mpg, cyl) %>%
  walk(
    function(x) {
      cat("*****HEAD******\n")
      print(head(x))
      cat("*****TAIL******\n")
      print(tail(x))
    }
  )
# *****HEAD******
#   [1] 21.0 21.0 22.8 21.4 18.7 18.1
# *****TAIL******
#   [1] 26.0 30.4 15.8 19.7 15.0 21.4
# *****HEAD******
#   [1] 6 6 4 6 8 6
# *****TAIL******
#   [1] 4 4 8 6 8 4

G. Grothendieck 7 年前

%>% invisible

mtcars %>%
  select(mpg, cyl) %>%
  map(
    function(x) {
      cat("*****HEAD******\n")
      print(head(x))
      cat("*****TAIL******\n")
      print(tail(x))
    }
  ) %>% 
  invisible

*****HEAD******
[1] 21.0 21.0 22.8 21.4 18.7 18.1
*****TAIL******
[1] 26.0 30.4 15.8 19.7 15.0 21.4
*****HEAD******
[1] 6 6 4 6 8 6
*****TAIL******
[1] 4 4 8 6 8 4

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

11 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

11 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

11 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

11 月前

Ben · 统计向量中的单词在字符串中出现的频率

11 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

11 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

11 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

12 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

12 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前