Merge pull request #698 from epipping/master

Do not use dir.exists to retain backwards-compatibility

Author: eddelbuettel

R/Attributes.R

@@ -1129,7 +1129,7 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
                            R.version$platform,
                            utils::packageVersion("Rcpp"),
                            sep = "-"))
-    if (!dir.exists(dir))
+    if (!utils::file_test("-d", dir))
         dir.create(dir, recursive = TRUE)
 
     dir