diff --git a/R/dot_rdb.R b/R/dot_rdb.R index ab609824ae650097a952a98c12be99e5a275e1be..bb162a9ba5b20e787867917f127d8ebd3679192f 100644 --- a/R/dot_rdb.R +++ b/R/dot_rdb.R @@ -86,7 +86,6 @@ additional_geo_column <- additional_geo_mapping <- NULL } else { additional_geo_column <- get_geo_colname(DBlist) - additional_geo_column <- get_geo_colname2(DBlist, additional_geo_column) additional_geo_mapping <- get_geo_names(DBlist, additional_geo_column) # Check coherence if (is.null(additional_geo_column) | is.null(additional_geo_mapping)) { diff --git a/R/utils.R b/R/utils.R index e0d617116b5e2450d1bdb9818b03e67dada281c4..c250cd8cd7076946a532f3aa7e8b096fe7baefdb 100644 --- a/R/utils.R +++ b/R/utils.R @@ -846,6 +846,7 @@ get_dimensions_names <- function(DT = NULL, dimensions_values = NULL, ...) { } #------------------------------------------------------------------------------- +# JUST A TRY, DO NOT USE ! # get_geo_colname2 get_geo_colname2 <- function(x, y) { u <- try(