R/firstlib.R and vignettes modfies for package to be compatible with PROJ 9.6.0 changes

Author: Markus Kainu

DESCRIPTION

@@ -1,8 +1,8 @@
 Type: Package
 Package: geofi
 Title: Access Finnish Geospatial Data
-Version: 1.0.18
-Date: 2025-02-11
+Version: 1.0.1801
+Date: 2025-04-12
 Authors@R: c(
     person("Markus", "Kainu", , "markus.kainu@kapsi.fi", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-1376-503X")),

R/firstlib.R

@@ -1,16 +1,26 @@
 
 .onAttach <- function(lib, pkg) {
-#   packageStartupMessage("\ngeofi R package: tools for open GIS data for Finland.\nPart of rOpenGov <ropengov.org>.\n
-# **************\n
-# Please note that the content of variables 'hyvinvointialue_name_*' and 'hyvinvointialue_code' has changed in 1.0.6 release.\nNew content follows the classification by Statistics Finland.\n
-# **************")
+  #   packageStartupMessage("\ngeofi R package: tools for open GIS data for Finland.\nPart of rOpenGov <ropengov.org>.\n
+  # **************\n
+  # Please note that the content of variables 'hyvinvointialue_name_*' and 'hyvinvointialue_code' has changed in 1.0.6 release.\nNew content follows the classification by Statistics Finland.\n
+  # **************")
+
+  # assing the modified data to global environment
+  assign("municipality_central_localities", pkg_env$municipality_central_localities, envir = .GlobalEnv)
+  packageStartupMessage("CRS in municipality_central_localties updated to match user PROJ-version")
 }
 
 # Create an empty environment to hold the WFS provider data
 wfs_providers <- new.env()
 
+# Environment to store the modified data
+pkg_env <- new.env()
+# Set the data NULL in global environment
+municipality_central_localities <- NULL
+
 #' @importFrom yaml read_yaml
 #' @importFrom purrr map2
+#' @importFrom sf st_transform
 
 .onLoad <- function(lib, pkg) {
 
@@ -19,4 +29,10 @@ wfs_providers <- new.env()
                                           package = "geofi"))
   # Map the providers and their data (URL, WFS version) to the environment
   purrr::map2(names(wfs_data), wfs_data, assign, envir = wfs_providers)
+
+  # Load the dataset into the package environment
+  utils::data("municipality_central_localities", package = "geofi", envir = pkg_env)
+  # Set CRS to 3067 that will vary whether user has PROJ < 9.6.0 or >= 9.6.0
+  pkg_env$municipality_central_localities <- sf::st_transform(pkg_env$municipality_central_localities, 3067)
+
 }

vignettes/geofi_making_maps.Rmd

@@ -59,7 +59,7 @@ Lets start with latest municipality division from `get_municipalities()` with is
 ```{r municipality_map, fig.width = 5, eval = apiacc}
 library(geofi)
 polygon <- get_municipalities(year = 2021, scale = 4500)
-point <- geofi::municipality_central_localities
+point <- municipality_central_localities
 # municipality code into integer
 point$municipality_code <- as.integer(point$kuntatunnus)
 ```

vignettes/geofi_spatial_analysis.Rmd

@@ -205,7 +205,7 @@ The following operations derive from [Marko Kallio's](http://markokallio.fi/) co
 
 ### Polygon centroids
 
-`geofi` contains data on municipality central locations (`geofi::municipality_central_localities`). Instead of those you may need the actual geographical centers ie. centroids of a polygon that can be computed using `st_centroid` and plotted with ggplot.
+`geofi` contains data on municipality central locations (`municipality_central_localities`). Instead of those you may need the actual geographical centers ie. centroids of a polygon that can be computed using `st_centroid` and plotted with ggplot.
 
 ```{r centroids, fig.width=5, eval = apiacc_pkginst}
 muni_centroids <- st_centroid(muni)
@@ -300,7 +300,7 @@ You can calculate distance matrices using [`st_distance()`](https://r-spatial.gi
 First we need to subset the data and replace original municipality name column (`teksti`) with *better* from latest municipality key.
 
 ```{r kunnat, eval = apiacc_pkginst}
-kunta <- geofi::municipality_central_localities %>%  
+kunta <- municipality_central_localities %>%  
   select(teksti,kuntatunnus) %>%
   mutate(kuntatunnus = as.integer(kuntatunnus)) %>%
   select(-teksti) %>%