ox examples

In ox: Shorthand if-Else

knitr::opts_chunk$set(echo = TRUE)

Switching single value using ox

Replace if NULL

library(ox)
x <- NULL
y <- 1

# if (!is.null(x)) x else y
xo(is.null, x, .else = y)

Replace if infinite

library(ox)
x <- Inf
y <- 1

# if (is.finite(x)) x else y
xo(is.infinite, x, .else = y)

Replace if character(0)

x <- character(0)
y <- 1

# if (!identical(x, character(0))) x else y
xo(identical, x, character(0), .else = y)

Replace if not class

x <- structure(0, class = "test")
y <- 1

# if (inherits(x, "test")) x else y
ox(inherits, x, "test", .else = y)

Return larger value

x <- 1
y <- 2

# if (x > y) x else y
ox(`>`, x, y)

Replace if doesn't contain a text

x <- "example text"
y <- "alternative text"

# if (grepl("text", x)) x else y
ox(grepl, "text", x, .else = y)

if not a single character

x <- c("a", "b")
y <- "a"

# if (is.character(x) && length(x) == 1) x else y
ox(function(x) is.character(x) && length(x) == 1, x, .else = y)

combining with checkmate

if (require(checkmate)) {
  x <- c("a", "b")
  y <- "a"

  # if (test_character(x, len = 2)) x else y
  ox(test_character, x, len = 2, .else = y)  
}

using magrittr pipe

library(magrittr)
x <- "a"
y <- 1

# x %<>% if (is.numeric(.)) . else y
x %<>% ox(.f = is.numeric, .else = y)

Switching vector values using OX

Replace NA with single value

x <- c(1, NA, 3)
y <- 2

# x[is.na(x)] <- y[is.na(x)]
XO(is.na, x, .else = y)

Replace minimum with value

x <- c(1, 2, 3)
y <- 0

x[which.min(x)] <- y
XO(which.min, x, .else = y)

Get larger value from two vectors

x <- c(1, 2, 3)
y <- c(4, 3, 2)

# x[x < y] <- y [x < y]
OX(`>`, x, y)

Keep elements matching a condition

x <- c(1, 2, 3, 4)

# x[x > 2]
OX(`>`, x, 2, .else = NULL)

Keep list elements matching a condition

x <- list(1, 2, 3, 4)

# x[vapply(x, function(xx) xx > 2, logical(1))]
OX(`>`, x, 2, .else = NULL)

Replace values with dplyr::mutate

library(dplyr)
iris %>%
  mutate(x = ifelse(Sepal.Length > Petal.Length, Sepal.Length, Petal.Length))

iris %>% mutate(x = OX(`>`, Sepal.Length, Petal.Length))

ox documentation built on Dec. 15, 2021, 9:10 a.m.