R/js-quote.R

In skranz/shinyAce2: Extended version of shinyAce

#' Escape a JS String
#' 
#' Escape a String to be sent to JavaScript
#' @param text The text to escape
#' @author Jeff Allen \email{jeff@@trestletech.com}
jsQuote <- function(text){
  toReturn <- shQuote(text)
  toReturn <- gsub('\n', '\\\\n', toReturn)
  toReturn
}