# Josua Kugler, Christian Merten library(rlang) `%->%` <- function(value, x) eval.parent(substitute(x <- value))