From d67e662acc9194f2ba00aeb33eee81c768535635 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 7 May 2024 22:44:19 +0200
Subject: [PATCH] fix data source handling

---
 R/geoflow_data.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/geoflow_data.R b/R/geoflow_data.R
index 3059c531..9f44e8aa 100644
--- a/R/geoflow_data.R
+++ b/R/geoflow_data.R
@@ -166,8 +166,8 @@ geoflow_data <- R6Class("geoflow_data",
           if(!any(sapply(data_props, function(x){x$key=="source"})) && !any(sapply(data_props, function(x){x$key=="dir"}))){
             stop("One or more data 'source' (or 'dir', as directory for sources) is mandatory")
           }
-          if(any(sapply(data_props, function(x){x$key=="source"}))) self$setSource(data_props$source$values)
         }
+        if(any(sapply(data_props, function(x){x$key=="source"}))) self$setSource(data_props$source$values)
           
         #sourceSql
         if(!is.null(data_props$sourceSql)){