#' Functions to help with string handling
#' @title Paste magic function
#' @description Paste characters.
#'
#' @param x1 string 1 to paste
#' @param x2 string 2 to paste
#'
#' @export
`%p%` <- function(x1, x2) {
paste0(x1, x2)
}
#' @title c for strings
#' @name cs
#'
#' @description
#' Make a character vector without quotes.
#' Ignores if the values entered are variable names
#'
#' @param ... This is coerced to a character vector
#'
#' @return A character vector of the input values.
#'
#' @examples
#' a <- TRUE
#' string_arb <- cs(a, b, c)
#' string_arb
#' #> "a" "b" "c"
#'
#' @export
cs <- function(...){
strings <- as.character(match.call(expand.dots = FALSE)[[2]])
return(strings)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.