#' Remove unprintable chars
#'
#' Remove unprintable chars
#' @param string a character vector
#' @export
rmUnprintableChars <- function(string=NULL) gsub("[\001-\037]","", string)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.