Muudetud väljundi projektsiooni 'teeregister_wfs'.

R/teeregister_wfs.R

@@ -44,9 +44,9 @@ teeregister_wfs <- function(conf = NULL) {
       if (!conf$table %in% installed_tables) {
         cat(sprintf("\n-----------------\nKihi \"%s\" kopeerimine andmebaasi.\n", wfs_layer))
         q <- sprintf(
-          "ogr2ogr -progress --config PG_USE_COPY YES -f PostgreSQL %s -lco DIM=2 %s %s -overwrite -nlt GEOMETRY -lco GEOMETRY_NAME=geometry -lco FID=id -nln %s.%s -s_srs EPSG:3301 -t_srs EPSG:4326 -a_srs EPSG:4326 -nlt PROMOTE_TO_MULTI ",
+          "ogr2ogr -progress --config PG_USE_COPY YES -f PostgreSQL %s -lco DIM=2 %s %s -overwrite -nlt GEOMETRY -lco GEOMETRY_NAME=geometry -lco FID=id -nln %s.%s -a_srs EPSG:3301 -nlt PROMOTE_TO_MULTI ",
           pg, wfs, wfs_layer, conf$schema, conf$table
-        )
+        ) #-s_srs EPSG:3301 -t_srs EPSG:3301
         cat(sprintf("\n%s\n", q))
         system(q)
         cat(sprintf("\n%s\n-------------\n", "Kopeerimine l\U00F5petati"))