R/auxiliary.R

Defines functions quote_protected

quote_protected <- function(x, s) {
  sprintf(sprintf("%s%%s%s", s, s),
    gsub(s, sprintf("%s%s", s, s), x, FALSE, FALSE, TRUE))
}

Try the opmextra package in your browser

Any scripts or data that you put into this service are public.

opmextra documentation built on May 2, 2019, 5:49 p.m.