@@ -98,6 +98,7 @@ generate_stack = function(layers, layer_size = NULL, dimension = NULL, multi_lay
9898 if (layer $ type == " numeric" ) {
9999 data = matrix (c(stats :: rnorm(floor(dimension ^ 2 / 2 ), 0 , 1 ), stats :: rnorm(ceiling(dimension ^ 2 / 2 ), 1 , 1 )), nrow = dimension )
100100 ras = rast(data )
101+ terra :: crs(ras ) = " EPSG:4326"
101102 if (! layer $ in_memory && ! multi_layer_file ) {
102103 filename = tempfile(fileext = " .tif" )
103104 writeRaster(ras , filename )
@@ -107,6 +108,7 @@ generate_stack = function(layers, layer_size = NULL, dimension = NULL, multi_lay
107108 } else if (layer $ type == " factor" ) {
108109 data = matrix (rep(seq_along(layer $ levels ), each = floor(dimension ^ 2 / length(layer $ levels )), length.out = dimension ^ 2 ), nrow = dimension )
109110 ras = rast(data )
111+ terra :: crs(ras ) = " EPSG:4326"
110112 ras = terra :: categories(ras , layer = 1 , data.table(ID = seq_along(layer $ levels ), category = layer $ levels ))
111113 if (! layer $ in_memory && ! multi_layer_file ) {
112114 filename = tempfile(fileext = " .tif" )
@@ -117,6 +119,7 @@ generate_stack = function(layers, layer_size = NULL, dimension = NULL, multi_lay
117119 } else if (layer $ type == " weights" ) {
118120 data = matrix (runif(dimension ^ 2 , 0 , 1 ), nrow = dimension )
119121 ras = rast(data )
122+ terra :: crs(ras ) = " EPSG:4326"
120123 if (! layer $ in_memory && ! multi_layer_file ) {
121124 filename = tempfile(fileext = " .tif" )
122125 writeRaster(ras , filename )
0 commit comments