TÖÖTAV VERSIOON.

00_algandmed.R

@@ -3,7 +3,7 @@
 system("ogr2ogr --long-usage")
 
 str <- " { 'FIELD' : 'code', 'INPUT' : '/data/gpkg/artiklid/artikkel_210127_valga_matsalu_lahemaa/mikihiir.gpkg|layername=piir_landuse_a', 'OPERATOR' : 0, 'OUTPUT' : 'ogr:dbname=\'/data/gpkg/artiklid/artikkel_210127_valga_matsalu_lahemaa/mikihiir.gpkg\' table=\"piir_landuse_a_residential\" (geom)', 'VALUE' : '7203' }"
-ruut::construct_qgis_output_result_to_beter_format(str = str)
+ruut::construct_qgis_output_result_to_better_format(str = str)
 
 source("functions/delete_existing_variables.R")
 
@@ -47,6 +47,11 @@ ruut::gpkg_piirkonnale_joonte_lisamine(obj = obj, gpkg_home = gpkg_home)
 ruut::gpkg_piirkonnale_punktide_lisamine(obj = obj, gpkg_home = gpkg_home)
 
 
+# Layers list
+sf::st_layers(dsn = dsn)
+
+
+
 ## Loeme andmebaasist piiri ja piirikasti.
 # Layers list
 gpkg_info <- sf::st_layers(dsn = dsn)
@@ -74,11 +79,11 @@ sf::st_geometry(piir_shp_katastriyksus) %>% graphics::plot(add = T, border = 2,
 sf::st_layers(dsn = dsn)
 
 
-y <- unique(as.data.frame(sf::read_sf(dsn = dsn, layer = 'piir_aadressandmed', as_tibble = T))[,c('adob_liik'), drop = F])
+y <- unique(as.data.frame(sf::read_sf(dsn = dsn, layer = "piir_aadressandmed", as_tibble = T))[, c("adob_liik"), drop = F])
 nrow(y)
 y$adob_liik
 
-##------------------ testi lõpp -------------------
+## ------------------ testi lõpp -------------------
 
 
 
@@ -97,7 +102,7 @@ source("geomeetria_teisendused/pk_piir.R")
 
 
 for (i in 1:length(objektid)) {
-#   ## ---------------- 1. piirkonna piir ------------------
+  #   ## ---------------- 1. piirkonna piir ------------------
   ## Muutujad: pk - piirkond
   obj <- objektid[i]
   x <- pk_piir(obj = obj)
@@ -116,16 +121,13 @@ for (i in 1:length(objektid)) {
   ruut::gpkg_piirkonnale_joonte_lisamine(obj = obj, gpkg_home = gpkg_home)
   # GPKG punktide lisamine
   ruut::gpkg_piirkonnale_punktide_lisamine(obj = obj, gpkg_home = gpkg_home)
-
-
-
-  }
+}
 
 
 m <- piirkonnale_maatriksi_loomine(obj = obj, pk = pk, gpkg_home = gpkg_home, obj_only = TRUE)
 m_filename <- sprintf("minu_%s_maatriks.csv", obj)
-write.table(m,file=m_filename, sep = ";", row.names = T)
-y <- read.table(m_filename,header=TRUE, sep = ";")
+write.table(m, file = m_filename, sep = ";", row.names = T)
+y <- read.table(m_filename, header = TRUE, sep = ";")
 unlink(m_filename) # Kustuta fail