build: add filles and update scripts to generate geospatial-dev-osgeo…

… Dockerfile

build/scripts/generate-args.R

@@ -123,23 +123,6 @@ latest_ctan_url <- function(date) {
 }
 
 
-#' Get the latest version from Git remote tags
-#' @param remote_repo A single character of Git remote repository URL.
-#' @return A character of the latest version.
-#' @examples
-#' latest_version_of_git_repo("https://github.com/OSGeo/PROJ.git")
-latest_version_of_git_repo <- function(remote_repo) {
-  gert::git_remote_ls(remote = remote_repo) |>
-    dplyr::pull(ref) |>
-    stringr::str_subset(r"(^refs/tags/v?(\d+\.){2}\d+$)") |>
-    stringr::str_extract(r"((\d+\.)*\d+$)") |>
-    package_version() |>
-    sort() |>
-    utils::tail(1) |>
-    as.character()
-}
-
-
 #' Paste each element of vectors in a cartesian product
 #' @param ... Dynamic dots. Character vectors to paste.
 #' @return A character vector.

build/scripts/generate-dockerfiles.R

@@ -83,3 +83,19 @@ tibble::tibble(
         )
     }
   )
+
+
+tibble::tibble(
+  r_version = readr::read_tsv("build/variables/r-versions.tsv", show_col_types = FALSE)$r_version |>
+    dplyr::last(),
+  proj_version = readr::read_tsv("build/variables/proj-versions.tsv", show_col_types = FALSE)$proj_version |>
+    dplyr::last(),
+  gdal_version = readr::read_tsv("build/variables/gdal-versions.tsv", show_col_types = FALSE)$gdal_version |>
+    dplyr::last(),
+  geos_version = readr::read_tsv("build/variables/geos-versions.tsv", show_col_types = FALSE)$geos_version |>
+    dplyr::last()
+) |>
+  write_dockerfiles(
+    dockerfile_template = readr::read_file("build/templates/dockerfiles/geospatial-dev-osgeo.Dockerfile.txt"),
+    path_template = "dockerfiles/geospatial-dev-osgeo.Dockerfile"
+  )

build/scripts/generate-variables.R

@@ -93,6 +93,23 @@ get_github_commit_date <- function(commit_url) {
 }
 
 
+#' Get the latest version from Git remote tags
+#' @param remote_repo A single character of Git remote repository URL.
+#' @return A character of the latest version.
+#' @examples
+#' latest_version_of_git_repo("https://github.com/OSGeo/PROJ.git")
+latest_version_of_git_repo <- function(remote_repo) {
+  gert::git_remote_ls(remote = remote_repo) |>
+    dplyr::pull(ref) |>
+    stringr::str_subset(r"(^refs/tags/v?(\d+\.){2}\d+$)") |>
+    stringr::str_extract(r"((\d+\.)*\d+$)") |>
+    package_version() |>
+    sort() |>
+    utils::tail(1) |>
+    as.character()
+}
+
+
 r_versions_with_freeze_dates() |>
   readr::write_tsv("build/variables/r-versions.tsv", na = "")
 
@@ -103,3 +120,22 @@ ubuntu_lts_versions() |>
 
 rstudio_versions() |>
   readr::write_tsv("build/variables/rstudio-versions.tsv", na = "")
+
+
+# geospatial-dev-osgeo's variables
+tibble::tibble(
+  proj_version = latest_version_of_git_repo("https://github.com/OSGeo/PROJ.git")
+) |>
+  readr::write_tsv("build/variables/proj-versions.tsv", na = "")
+
+
+tibble::tibble(
+  gdal_version = latest_version_of_git_repo("https://github.com/OSGeo/gdal.git")
+) |>
+  readr::write_tsv("build/variables/gdal-versions.tsv", na = "")
+
+
+tibble::tibble(
+  geos_version = latest_version_of_git_repo("https://github.com/libgeos/geos.git")
+) |>
+  readr::write_tsv("build/variables/geos-versions.tsv", na = "")

build/templates/dockerfiles/geospatial-dev-osgeo.Dockerfile.txt

@@ -0,0 +1,8 @@
+FROM rocker/verse:{{r_version}}
+
+ENV PROJ_VERSION="{{proj_version}}"
+ENV GDAL_VERSION="{{gdal_version}}"
+ENV GEOS_VERSION="{{geos_version}}"
+
+COPY scripts/experimental/install_dev_osgeo.sh /rocker_scripts/experimental/install_dev_osgeo.sh
+RUN /rocker_scripts/experimental/install_dev_osgeo.sh

build/variables/gdal-versions.tsv

@@ -0,0 +1,2 @@
+gdal_version
+3.8.5

build/variables/geos-versions.tsv

@@ -0,0 +1,2 @@
+geos_version
+3.12.1

build/variables/proj-versions.tsv

@@ -0,0 +1,2 @@
+proj_version
+9.4.0