fork download
copy 
  1. library(magrittr)
  2. mtcars %>% 
  3.     subset(cyl == 6) %>% 
  4.     `[[`("mpg") %>% 
  5.     mean() 
  6.  
  7. # Equivalent using placeholder
  8. mtcars %>% 
  9.     subset(cyl == 6, . ) %>% 
  10.     `[[`("mpg", .) %>% 
  11.     mean(.)
Success #stdin #stdout #stderr 0.28s 43468KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] 19.74286
stderr
copy 
Error in subset(cyl == 6, .) : object 'cyl' not found
Calls: %>% ... eval -> eval -> _fseq -> freduce -> <Anonymous> -> subset
Execution halted
https://ideone.com/FdEcOK
language:
R (R 3.5.2)
created:
5 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!