fork download
copy 
  1. library(data.table)
  2. library(magrittr)
  3. dt = fread('
  4. 1 2
  5. 1 3
  6. 2 4
  7. 2 6
  8. 3 2
  9. 3 7')
  10. setnames(dt, 1:2, c("x","y"))
  11. dt
  12.  
  13. dt1 <- dt[!(duplicated(y) & (duplicated(x) | duplicated(x, fromLast = TRUE))),]
  14. dt2 <- dt1[!(duplicated(y) | duplicated(x)),]
  15. dt3 <- dt2[-max(c(na.omit(match(x,y)), na.omit(match(y,x)))),]
  16. dt3
Success #stdin #stdout 0.3s 43448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   x y
1: 1 2
2: 1 3
3: 2 4
4: 2 6
5: 3 2
6: 3 7
   x y
1: 1 2
2: 3 7
https://ideone.com/NFdoyO
language:
R (R 3.5.2)
created:
3 years 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!