R/yyy.pipe.R

Defines functions `.%>%.ursaRaster`

# https://thomasadventure.blog/posts/how-does-the-pipe-operator-actually-work/
`.%>%.ursaRaster` <- function(lhs, rhs) {
  lhs <- substitute(lhs)
  rhs <- substitute(rhs)
  building_blocks <- c(
    rhs[[1L]],
    lhs,
    as.list(rhs[-1L])
  )
  call <- as.call(building_blocks)
  eval(call, envir = parent.frame())
}

Try the ursa package in your browser

Any scripts or data that you put into this service are public.

ursa documentation built on Dec. 28, 2022, 2:18 a.m.