Nothing
#' @rdname naturalsort
#' @export
naturalsort <- function(text, decreasing=FALSE, na.last=NA) {
text[naturalorder(text, decreasing=decreasing, na.last=na.last)]
}
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.