From c8fa17f67ebec2a0c94bea3e28b714eb5676c425 Mon Sep 17 00:00:00 2001
From: s915 <s915.stem@gmail.com>
Date: Mon, 13 Apr 2020 11:29:11 +0200
Subject: [PATCH] Removing internal function 'get_geo_colname2()'.
---
R/dot_rdb.R | 1 -
R/utils.R | 1 +
2 files changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/dot_rdb.R b/R/dot_rdb.R
index ab60982..bb162a9 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 e0d6171..c250cd8 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(
--
GitLab