fix #420

Author: eblondel

NAMESPACE

@@ -63,6 +63,7 @@ export(geoflow_validator_entity_Type)
 export(geoflow_vocabulary)
 export(getDBTableColumnComment)
 export(getDBTableComment)
+export(get_absolute_path)
 export(get_config_resource_path)
 export(get_epsg_code)
 export(get_line_separator)

R/geoflow_utils.R

@@ -585,7 +585,7 @@ dotenv_parse_dot_line <- function (line) {
 #' @export
 unload_workflow_environment <- function(config){
   env_vars_workflow <- as.list(Sys.getenv())
-  envfile <- config$profile_config$environment$file
+  envfile <- get_absolute_path(config$profile_config$environment$file, base = config$wd)
   if(!is.null(envfile)){
     tmp <- readLines(envfile)
     tmp <- dotenv_ignore_comments(tmp)
@@ -622,6 +622,32 @@ is_absolute_path <- function(path) {
   grepl("^(/|[A-Za-z]:|\\\\|~)", path)
 }
 
+#' @name get_absolute_path
+#' @aliases get_absolute_path
+#' @title get_absolute_path
+#' @description \code{get_absolute_path} allows to get the absolute path of a resource
+#' given a base directory
+#' 
+#' @usage get_absolute_path(path, base, mustWork, expand_tilde)
+#' 
+#' @param path a path in character string
+#' @param base a base direcotry
+#' @param mustWork must work?
+#' @param expand_tilde expand tilde?
+#' 
+#' @author Emmanuel Blondel, \email{emmanuel.blondel1@@gmail.com}
+#' @export
+get_absolute_path <- function(path, base = getwd(), mustWork = FALSE, expand_tilde = TRUE) {
+  path <- as.character(path)
+  base <- as.character(base)[1L]
+  if (expand_tilde) {
+    path <- ifelse(startsWith(path, "~"), path.expand(path), path)
+    base <- path.expand(base)
+  }
+  combined <- ifelse(is_absolute_path(path), path, file.path(base, path))
+  normalizePath(combined, winslash = "/", mustWork = mustWork)
+}
+
 #'@name get_union_bbox
 #'@aliases get_union_bbox
 #'@title get_union_bbox