just use the definition of "positive part", (x)^+ = max{0, x}. You may write a small function "pt" as follows:
pt <- function(x) ifelse(x > 0, x, 0)
# run
pt(1 - 2)
pt(2 - 1)