Walrus Operator in R

R-walrus.R

#' Assignment expression operator
#'
#' Creates an object with name `lhs` with the value `lhs`
#' and finally returns the value e.g. to pipe and print it 
`%:=%` <- function(lhs, rhs, envir = parent.frame()) {
  assign(deparse(substitute(lhs)), rhs, envir = envir)
  rhs
}

# Create a varaible and print it's value
a %:=% 1337 %>% paste0("a=", .)
a

# Creates the plot object and actually plots it to the device
plt %:=% ggplot2::qplot(Sepal.Width, Sepal.Length, data = iris)