Removing internal function 'get_geo_colname2()'.

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)) {

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(