add support for no localappdata

apache · Aug 21, 2017 · 7c75073 · 7c75073
1 parent ba65d6e
commit 7c75073
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/R/pkg/R/install.R b/R/pkg/R/install.R
@@ -270,7 +270,11 @@ sparkCachePath <- function() {
   if (is_windows()) {
     winAppPath <- Sys.getenv("LOCALAPPDATA", unset = NA)
     if (is.na(winAppPath)) {
-      stop(paste("%LOCALAPPDATA% not found.",
+      message("%LOCALAPPDATA% not found. Falling back to %USERPROFILE%.")
+      winAppPath <- Sys.getenv("USERPROFILE", unset = NA)
+    }
+    if (is.na(winAppPath)) {
+      stop(paste("%LOCALAPPDATA% and %USERPROFILE% not found.",
                    "Please define the environment variable",
                    "or restart and enter an installation path in localDir."))
     } else {

diff --git a/R/pkg/vignettes/sparkr-vignettes.Rmd b/R/pkg/vignettes/sparkr-vignettes.Rmd
@@ -30,7 +30,7 @@ vignette: >
 ```{r setup, include=FALSE}
 library(knitr)
 opts_hooks$set(eval = function(options) {
-  # override eval only on windows
+  # override eval to FALSE only on windows
   if (.Platform$OS.type == "windows") {
     options$eval = FALSE
   }