# generate paths consumable by the compilers and linkers
# in particular, on Windows and Solaris, this means the path _cannot_ be quoted !!
asBuildPath <- function(path) {
# normalize paths using forward slashes
path <- normalizePath(path, winslash = "/", mustWork = FALSE)
# prefer short path names if the path has spaces
if (is_windows() && grepl(" ", path, fixed = TRUE))
path <- utils::shortPathName(path)
# if we still have spaces, and we're not Windows or Solaris, try quoting
if (grepl(" ", path, fixed = TRUE) && !is_solaris())
path <- shQuote(path)
# ensure we use forward slashes, even on Windows
path <- chartr("\\", "/", path)
# return path
path
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.