R/utils.R

In ymattu/ymattuR: Utilities for ymattu

#' inverse of \%in\%
#' @description borrowed from Hmisc. See %in%. Original %in% is: match(x, table,
#'   nomatch = 0L) > 0L
#' @param x is the vector of values to be matched
#' @param table is actually a vector, to be matched against
#' @return logical vector of length of x
#' @export
"%nin%" <- function(x, table) {
  match(x, table, nomatch = 0) == 0
}

#' Get The OS Type
#' @return OS Type (chr)
#' @export
get_os <- function() {
  if (.Platform$OS.type == "windows") {
    "win"
  } else if (Sys.info()["sysname"] == "Darwin") {
    "mac"
  } else if (.Platform$OS.type == "unix") {
    "unix"
  } else {
    stop("Unknown OS")
  }
}

#' Whether We Can Connect to The Internet
#' @return T or F
#' @export
has_internet <- function() {
  ip <- get("nslookup", asNamespace("curl"))("r-project.org", error = FALSE)
  lgl <- NA
  if (is.null(ip)) {
    lgl <- FALSE
  } else {
    lgl <- TRUE
  }
  return(lgl)
}


#' Apply Multiple Functions to ONE Vector
#' @param x A Vector
#' @param ... Function Names
#' @return list
#' @examples
#' inverse_map(c(20, 100, 30), min, max)
#' @export
inverse_map <- function(x, ...){
  mthd <- list(...)
  lst <- lapply(mthd, function(m) do.call(m, list(x)))
  names(lst) <- as.character(mthd)
  return(lst)
}