utils.R

# 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

}