R/string.R

In poissonconsulting/jaggernaut: Bayesian Analyses using 'JAGS'

#' Reverse Strings
#' 
#' Reverses strings
#' 
#' @param x character vector
#' @return Reversed character vector
#' @examples
#' reverse_strings(c("abc","def"))
#' @export 
reverse_strings <- function(x) {
  sapply(lapply(strsplit(x, NULL), rev), paste, collapse="")
}

#' Paste Names
#' 
#' Paste names
#' 
#' @param x character vector
#' @param quotes flag indicating whether to quote names
#' @return String of pasted names
#' @examples
#' paste_names(c("x","y","z"))
#' paste_names(c("x","y","z"), TRUE)
#' @export
paste_names <- function (x, quotes = FALSE) {
  assert_that(is.flag(quotes) && noNA(quotes))
  
  x <- paste0("'", paste0(x, collapse = "', '"), "'")
  x <- sub(",(?= '\\w+'$)", " and", x, perl = TRUE)
  x
}