R/internal_utils.R

Defines functions str_trim

str_trim <- function(x) {
    gsub("^[[:space:]]+", "", gsub("[[:space:]]+$", "", x))
}

`%eq%` <- function (x, y) ifelse(is.null(x) || is.null(y), FALSE, x == y & !is.na(x) & !is.na(y))
openvolley/opensportml documentation built on Jan. 26, 2021, 1:34 a.m.