R/quoted.R

In elo2zero/oddsandsods: Miscellanous functions

#' Put vector elements in quotes/bracelets or other specified
#'
#' Put vector elements in quotes
#'
#' @examples
#' quoted(1:10, "-")
#' quoted(LETTERS)
#' quoted(letters, collapse=",")
#' @export
quoted <- function(vec,str="'", collapse="none"){
  if(collapse!="none"){
    paste0(str,vec,str, collapse=collapse) %>% return
  } else{
    paste0(str,vec,str) %>% return
  }
}


#' contains
#'
#' contains
#'
#' @param x vector to be searched in
#' @param y string being searched
#' @return x bool
#' @examples
#' 'elo' %contains% 'e'
#' 'Elo' %contains2% 'e'
#' @export
`%contains%` <- function(x, y)
  grepl(y, x)

`%contains2%` <- function(x, y)
  grepl(y, x, ignore.case = T)