setSimulationPath() delete getwd() to choose dir in windows (cran p…

…olicie)
rte-antares-rpackage · Aug 29, 2024 · 54f897d · 54f897d
1 parent b46bf9b
commit 54f897d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/setSimulationPath.R b/R/setSimulationPath.R
@@ -185,7 +185,7 @@ setSimulationPath <- function(path, simulation = NULL) {
   if (missing(path)) {
     if (exists("choose.dir", getNamespace("utils"))) {
       # choose.dir is defined only on Windows
-      path <- utils::choose.dir(getwd(), "Select an Antares simulation directory")
+      path <- utils::choose.dir("./", "Select an Antares simulation directory")
       if (is.na(path)) stop("You have canceled the execution.")
     } else {
       stop("Please specify a path to an Antares simulation")