#*********************************************
#*********************************************
#' Run WinPath(), paste in a Windows file path, hit Enter, and get a valid path out (changing \ to /).
#'
#' @return
#'
#' @export
#'
WinPath <- function(){
x <- readline()
gsub("\\\\", "/", x)
##################################################
##################################################
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.