improve applause party parsing

2021-07-01 13:23:29 +02:00
parent f09cbac172
commit 2abb3467e8
2 changed files with 4 additions and 1 deletions
@@ -1,4 +1,5 @@
 `%$%` <- function(f, x) f(x)
 `%.%` <- function(f, g) function(...) f(g(...))
+flip <- function(f) function(x, y) f(y, x)

 clear_na <- function(xs) xs[!is.na(xs)]