R/htmlspecialchars.R

In fun: Use R for Fun

Defines functions htmlspecialchars

Documented in htmlspecialchars

htmlspecialchars <-
function(string) {
    x = c("&", "\"", "'", "<", ">")
    subx = c("&amp;", "&quot;", "&#039;", "&lt;", "&gt;")
    for (i in seq_along(x)) {
        string = gsub(x[i], subx[i], string, fixed = TRUE)
    }
    string
}

Try the fun package in your browser