R/utils.R

In rwright88/rwmisc: Ray Wright Miscellaneous

# TODO
# add tests

# from rlang::is_installed()
is_installed <- function(pkg) {
  identical(requireNamespace(pkg, quietly = TRUE), TRUE)
}

set_names <- function(x, nm) {
  names(x) <- nm
  x
}

strw_count <- function(string, pattern, perl = FALSE, fixed = FALSE) {
  out <- nchar(string) - nchar(gsub(pattern, "", string, perl = perl, fixed = fixed))
  out / nchar(pattern)
}