Patch #318

ranghetti · Jul 1, 2020 · d750431 · d750431
1 parent 059b1bb
commit d750431
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/R/gipp.R b/R/gipp.R
@@ -55,9 +55,14 @@ gipp_init <- function(gipp_sen2r_path = NA, force = FALSE, dem_warning = FALSE)
       sen2cor_version_raw1
     )
     # define L2A_GIPP.xml path
-    gipp_sen2cor_path <- normalize_path(
-      file.path("~/sen2cor", sen2cor_version, "cfg/L2A_GIPP.xml")
-    )
+    gipp_sen2cor_path <- normalize_path(file.path(
+      if (Sys.info()["sysname"] == "Windows") {
+        file.path(Sys.getenv("USERPROFILE"), "Documents")
+      } else {
+        "~"
+      },
+      "sen2cor", sen2cor_version, "cfg/L2A_GIPP.xml"
+    ))
     # (this assumes Sen2Cor to be installed and configured to be used with sen2r)
 
     if (!file.exists(gipp_sen2cor_path)) {