diff --git a/dev/tag-message b/dev/tag-message
index 2e0bd93d6bcd609f19d21a4546fbf2f61a2689bc..01c6fcd62206f468ab1fbbcaca18a554ca99f0bc 100644
--- a/dev/tag-message
+++ b/dev/tag-message
@@ -1,17 +1,17 @@
-so.ii Version: 1.0.25.0
+so.ii Version: 1.0.26.0
 
 0 errors ✔ | 0 warnings ✔ | 0 notes ✔
 
 **Note de version**
     * modification de map_so_ii
-    * nouvelle fonction interne adjust_terra_scale
+    * nouvelle fonction interne calculate_terra_xy
 
 **Détails**
     * La librairie terra a changé sa façon de faire la barre d'échelle avec
     sbar à partir de la version 1.7, de façon incompatible avec l'usage interne.
-    Une nouvelle fonction non exportée adjust_terra_scale est créé pour ne plus
-    dépendre des fonctionnalités de terra::sbar qui posent problème, lorsque
-    les cartes sont en "lonlat".
+    Une nouvelle fonction non exportée calculate_terra_xy est créée pour ne plus
+    dépendre des fonctionnalités de terra::sbar qui posent problème, et ne
+    permettaient plus de faire un positionnement par mots clés.
 
 # git tag -a v1.0.25.0 -F dev/tag-message
 # git push --tags
diff --git a/so.ii/DESCRIPTION b/so.ii/DESCRIPTION
index cf26285db960a9ae1eab01d165b12ed3b93b7af6..db2020b5585b6b847e7c25b997e5a37b96c7a218 100644
--- a/so.ii/DESCRIPTION
+++ b/so.ii/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: so.ii
 Title: Utilities very useful to share within so_ii team
-Version: 1.0.25.0
+Version: 1.0.26.0
 Authors@R:
     c(
         person(given = "Frédéric",
diff --git a/so.ii/R/adjust_terra_scale.R b/so.ii/R/adjust_terra_scale.R
index a749b0eb9933fcc2cc38c0337a10ed18e86f4263..7bcbe79130db2ad524aa11e714a7afee8c9e36cb 100644
--- a/so.ii/R/adjust_terra_scale.R
+++ b/so.ii/R/adjust_terra_scale.R
@@ -12,7 +12,7 @@ adjust_terra_scale = function(d = NULL, lonlat = TRUE) {
         cbind(lon2, lat2)/toRad
     }
 
-    graph_box = graphics::par()$usr
+    graph_box = graphics::par()[["usr"]]
     if (lonlat) {
         lat = mean(graph_box[3:4])
         if (is.null(d)) {
@@ -34,3 +34,53 @@ adjust_terra_scale = function(d = NULL, lonlat = TRUE) {
     }
     return(c(dd, d))
 }
+
+calculate_terra_xy = function (xy, dx = 0, dy = 0, defpos = "bottomleft")
+{
+    graph_box = graphics::par()[["usr"]]
+    if (is.null(xy)) {
+        xy = defpos
+    }
+    if (!is.character(xy)) {
+        return(cbind(xy[1], xy[2]))
+    }
+    xy = tolower(xy)
+    parrange = c(graph_box[2] - graph_box[1], graph_box[4] - graph_box[3])
+    pad = c(5, 5)/100
+    if (xy == "bottom") {
+        xy = c(graph_box[1] + 0.5 * parrange[1] - 0.5 * dx, graph_box[3] + 
+            (pad[2] * parrange[2])) + c(0, dy)
+    }
+    else if (xy == "bottomleft") {
+        xy = c(graph_box[1] + (pad[1] * parrange[1]), graph_box[3] + 
+            (pad[2] * parrange[2])) + c(0, dy)
+    }
+    else if (xy == "bottomright") {
+        xy = c(graph_box[2] - (pad[1] * parrange[1]), graph_box[3] + 
+            (pad[2] * parrange[2])) - c(dx, -dy)
+    }
+    else if (xy == "topright") {
+        xy = c(graph_box[2] - (pad[1] * parrange[1]), graph_box[4] - 
+            (pad[2] * parrange[2])) - c(dx, dy)
+    }
+    else if (xy == "top") {
+        xy = c(graph_box[1] + 0.5 * parrange[1] - 0.5 * dx, graph_box[4] - 
+            (pad[2] * parrange[2])) - c(0, dy)
+    }
+    else if (xy == "topleft") {
+        xy = c(graph_box[1] + (pad[1] * parrange[1]), graph_box[4] - 
+            (pad[2] * parrange[2])) - c(0, dy)
+    }
+    else if (xy == "left") {
+        xy = c(graph_box[1] + (pad[1] * parrange[1]), graph_box[3] + 
+            0.5 * parrange[2] - 0.5 * dy)
+    }
+    else if (xy == "right") {
+        xy = c(graph_box[2] - (pad[1] * parrange[1]) - dx, graph_box[3] + 
+            0.5 * parrange[2] - 0.5 * dy)
+    }
+    else {
+        stop("xy must be a coordinate pair (two numbers) or one of \"bottomleft\", \"bottom\", \"bottomright\", topleft\", \"top\", \"topright\"")
+    }
+    xy
+}
\ No newline at end of file
diff --git a/so.ii/R/current_version.r b/so.ii/R/current_version.R
similarity index 100%
rename from so.ii/R/current_version.r
rename to so.ii/R/current_version.R
diff --git a/so.ii/R/data.r b/so.ii/R/data.R
similarity index 100%
rename from so.ii/R/data.r
rename to so.ii/R/data.R
diff --git a/so.ii/R/kable_units.r b/so.ii/R/kable_units.R
similarity index 100%
rename from so.ii/R/kable_units.r
rename to so.ii/R/kable_units.R
diff --git a/so.ii/R/map_so_ii.r b/so.ii/R/map_so_ii.R
similarity index 99%
rename from so.ii/R/map_so_ii.r
rename to so.ii/R/map_so_ii.R
index f0d1c11d772cf5fb9d4634f2f3d0db4fb939888a..54ff95b2a9ae31abcdff7cd8f53ae826421b7e47 100644
--- a/so.ii/R/map_so_ii.r
+++ b/so.ii/R/map_so_ii.R
@@ -297,7 +297,7 @@ map_so_ii = function(
             # area = sf::st_area(sf::st_as_sfc(sf::st_bbox(scope)))
             # d = max(pretty(units::set_units(sqrt(area) / 5, "km")))
             d = adjust_terra_scale()
-            xy = "bottomleft"
+            xy = calculate_terra_xy("bottomleft")
             # Magical adjustment when scope vary to have text readable
             # 0.4788987 should correspond to longitude range for so.ii scope
             adj = diff(graphics::par()$usr[3:4])
diff --git a/so.ii/R/plot_legend.r b/so.ii/R/plot_legend.R
similarity index 100%
rename from so.ii/R/plot_legend.r
rename to so.ii/R/plot_legend.R
diff --git a/so.ii/man/clc_color.Rd b/so.ii/man/clc_color.Rd
index 35203a561be96dfe331bc7cb00806d253dd04386..8e050f7fe4b26575d4ff05bf45f5d22c76b2073f 100644
--- a/so.ii/man/clc_color.Rd
+++ b/so.ii/man/clc_color.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{clc_color}
 \alias{clc_color}
diff --git a/so.ii/man/current_version.Rd b/so.ii/man/current_version.Rd
index 14579d8e4818ebbc5707a3abe664ef7113c18b81..36d3727e5cb32d177921007e0edf83175d5403b2 100644
--- a/so.ii/man/current_version.Rd
+++ b/so.ii/man/current_version.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/current_version.r
+% Please edit documentation in R/current_version.R
 \encoding{UTF-8}
 \name{current_version}
 \alias{current_version}
diff --git a/so.ii/man/so_ii_catchment.Rd b/so.ii/man/so_ii_catchment.Rd
index 0cfe4ebe5646c2bb3ef083c5be367f97a8bbdcf7..91ae6bc666ed9a11ac37e3dd15814a6c804d90b5 100644
--- a/so.ii/man/so_ii_catchment.Rd
+++ b/so.ii/man/so_ii_catchment.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_catchment}
 \alias{so_ii_catchment}
diff --git a/so.ii/man/so_ii_catnat.Rd b/so.ii/man/so_ii_catnat.Rd
index 50b2aab612ad4afa953986d39234eed25cf48de1..f5fc0ba2591da74be3381ebd7cbee2065574d120 100644
--- a/so.ii/man/so_ii_catnat.Rd
+++ b/so.ii/man/so_ii_catnat.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_catnat}
 \alias{so_ii_catnat}
diff --git a/so.ii/man/so_ii_clc.Rd b/so.ii/man/so_ii_clc.Rd
index 2f08e4b98eb345495a0034e483eb3e16c39a5ad9..49981aedf8ddbbc34ac8f3eaabf1a3081780dcdb 100644
--- a/so.ii/man/so_ii_clc.Rd
+++ b/so.ii/man/so_ii_clc.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_clc}
 \alias{so_ii_clc}
diff --git a/so.ii/man/so_ii_clc_crop.Rd b/so.ii/man/so_ii_clc_crop.Rd
index 2db0c12edd39b83941a04c8e88bbe1c4813f0a32..4763a9433427cf22aaf1f6104d4adc535d11f3e1 100644
--- a/so.ii/man/so_ii_clc_crop.Rd
+++ b/so.ii/man/so_ii_clc_crop.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_clc_crop}
 \alias{so_ii_clc_crop}
diff --git a/so.ii/man/so_ii_collectivity.Rd b/so.ii/man/so_ii_collectivity.Rd
index 28fb45833f55ca9eea6371451d6b0fff4e19aac0..f8fa3482dfc1dc1f89b477a785c5ff6092537b10 100644
--- a/so.ii/man/so_ii_collectivity.Rd
+++ b/so.ii/man/so_ii_collectivity.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_collectivity}
 \alias{so_ii_collectivity}
diff --git a/so.ii/man/so_ii_hydro.Rd b/so.ii/man/so_ii_hydro.Rd
index 8af21fddb61aa39d694ccc101e7c9462672a8011..c65afbac18c68210a26328ab2a556f1924df6324 100644
--- a/so.ii/man/so_ii_hydro.Rd
+++ b/so.ii/man/so_ii_hydro.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_hydro}
 \alias{so_ii_hydro}
diff --git a/so.ii/man/so_ii_inset.Rd b/so.ii/man/so_ii_inset.Rd
index 0269d1a0168fedad93483ca4f86f2de2e0907f41..cf1555f3ebe8930c526e16160e8852a6af2024a3 100644
--- a/so.ii/man/so_ii_inset.Rd
+++ b/so.ii/man/so_ii_inset.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_inset}
 \alias{so_ii_inset}
diff --git a/so.ii/man/so_ii_limit.Rd b/so.ii/man/so_ii_limit.Rd
index 64c439bb842a427152f28d3e0eea3125a51aa92c..8655e306856ce078e729f363110f09958d2945bb 100644
--- a/so.ii/man/so_ii_limit.Rd
+++ b/so.ii/man/so_ii_limit.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_limit}
 \alias{so_ii_limit}
diff --git a/so.ii/man/so_ii_montpellier.Rd b/so.ii/man/so_ii_montpellier.Rd
index 1d7aa744e603aa5be728366ea3b4a88a501f6dc7..872b8834e9e9ef478abf1279c79bcada93476479 100644
--- a/so.ii/man/so_ii_montpellier.Rd
+++ b/so.ii/man/so_ii_montpellier.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_montpellier}
 \alias{so_ii_montpellier}
diff --git a/so.ii/man/so_ii_onrn.Rd b/so.ii/man/so_ii_onrn.Rd
index 0991fd9530b650df388a3fb8ceadf37330e9d76c..f2d450baa23eb58499371fe78057d1392a829d4d 100644
--- a/so.ii/man/so_ii_onrn.Rd
+++ b/so.ii/man/so_ii_onrn.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_onrn}
 \alias{so_ii_onrn}
diff --git a/so.ii/man/so_ii_population.Rd b/so.ii/man/so_ii_population.Rd
index 7719fce8ccb0614e5ae5da951da6cea92ef16a4d..2198caafe421f017676bfa6e9b232f0d12c5e2b5 100644
--- a/so.ii/man/so_ii_population.Rd
+++ b/so.ii/man/so_ii_population.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_population}
 \alias{so_ii_population}
diff --git a/so.ii/man/so_ii_scope.Rd b/so.ii/man/so_ii_scope.Rd
index 270cf442bc19555c283abef0f203eeaa47d32d15..5b275d31152720a88c09117e4dbf72817391216e 100644
--- a/so.ii/man/so_ii_scope.Rd
+++ b/so.ii/man/so_ii_scope.Rd
@@ -1,5 +1,5 @@
 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/data.r
+% Please edit documentation in R/data.R
 \docType{data}
 \name{so_ii_scope}
 \alias{so_ii_scope}