## Authors: Gerko Vink, Stef van Buuren
rm.whitespace <- function(string, side = "both") {
side <- match.arg(side, c("left", "right", "both"))
pattern <- switch(side,
left = "^\\s+",
right = "\\s+$",
both = "^\\s+|\\s+$"
)
sub(pattern, "", string)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.