Fix undefined CRS bug

KWB-R · Apr 15, 2024 · 1678dcb · 1678dcb
1 parent 6a5e7cf
commit 1678dcb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/get_shapes_of_germany.R b/R/get_shapes_of_germany.R
@@ -55,14 +55,14 @@ get_shapes_of_germany <- function(recreate = FALSE, use_sf = FALSE)
   example_grid <- get_example_grid_germany()
 
   #crs_lines <- readLines("https://opendata.dwd.de/climate_environment/CDC/help/gk3.prj")
-  #print(example_grid@crs)
+  #print(example_grid@srs)
   #cat(crs_lines)
 
   # Transform all shapes according to the projection of the example grid
   shapes_germany <- lapply(
     shapes_germany,
     FUN = transform_coords,
-    target_crs = example_grid@crs,
+    target_crs = example_grid@srs,
     use_sf = use_sf
   )
 

diff --git a/R/read_data_over_shape.R b/R/read_data_over_shape.R
@@ -121,7 +121,7 @@ read_shape_with_dwd_projection <- function(file, ...)
   example_grid <- get_example_grid_germany()
 
   # Read the shape file, transforming the projection to DWD's projection
-  read_shape_file(file, target_crs = example_grid@crs, ...)
+  read_shape_file(file, target_crs = example_grid@srs, ...)
 }
 
 # get_data_from_grid_files -----------------------------------------------------