R/tilde.R

In admisc: Adrian Dusa's Miscellaneous

`tilde1st` <- function(x) {
    is.element(
        substring(
            gsub(
                paste0("[[:space:]|", "\u00a0", "]"), # multibyte space
                "",
                x
            ),
            1, 1
        ),
        tildae()
    )
}

`hastilde` <- function(x) {
    grepl(paste(tildae(), collapse = "|"), x)
}

`notilde` <- function(x) {
    gsub(
        paste(tildae(), collapse = "|"),
        "",
        gsub(
            paste0("[[:space:]|", "\u00a0", "]"), # multibyte space
            "",
            x
        )
    )
}