Nothing
#' Remove Leading/Trailing White Space
#'
#' Remove leading/trailing white space.
#'
#' @param x The text variable.
#' @return Returns a vector with the leading/trailing white spaces removed.
#' @export
#' @examples
#' \dontrun{
#' (x <- c(" talkstats.com ", " really? ", " yeah"))
#' Trim(x)
#' }
Trim <-
function (x) gsub("^\\s+|\\s+$", "", x)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.