Muudetud: gtfs, aadressandmed, inspire ruudud.

.Rbuildignore

@@ -1,3 +1,4 @@
 ^estmap\.Rproj$
 ^\.Rproj\.user$
 ^LICENSE\.md$
+^inst/tmp$

.gitignore

@@ -1,2 +1,3 @@
 .Rproj.user
-inst/testimiseks/
+inst/untitled/
+inst/tmp/

R/gtfs.R

@@ -1,6 +1,6 @@
 #' GTFS - maanteeameti ühistranspordi andmed
 #'
-#' General Transit Feed Specification (GTFS). Source: \url{http://peatus.ee/gtfs/}. Ühistranspordiregistri avaandmed sisaldavad lihtsustatud struktuuri andmekoosseisuga väljavõtet Riiklikku Ühistranspordiregistrisse kantud andmetest, mis hõlmavad siseriiklikult käigus olevate ühistranspordiliinide kirjeldusi, sõidugraafikuid ja peatuste asukohtasid.\url{https://www.mnt.ee/et/uhistransport/uhistranspordi-infosusteem} Funktsioon impordib gtfs andmestiku importimine andmebaasi.
+#' General Transit Feed Specification (GTFS). Source: \url{http://peatus.ee/gtfs/}. Ühistranspordiregistri avaandmed sisaldavad lihtsustatud struktuuri andmekoosseisuga väljavõtet Riiklikku Ühistranspordiregistrisse kantud andmetest, mis hõlmavad siseriiklikult käigus olevate ühistranspordiliinide kirjeldusi, sõidugraafikuid ja peatuste asukohtasid.  \url{https://www.mnt.ee/et/uhistransport/uhistranspordi-infosusteem} Funktsioon impordib gtfs andmestiku importimine andmebaasi.
 #'
 #' Ühistranspordiregistri avaandmete andmefailid:
 #' - agency.txt
@@ -20,24 +20,28 @@
 #' @keywords postgis, maps, ESRI Shpfile, OSM
 #' @export
 #' @examples
-#' ## Not run:
-#' ##
-#' ## gtfs()
-#' ##
-#' ## End(**Not run**)
+#' \dontrun{
+#'
+#' conf <- ruut::get_config()
+#' gtfs(conf = conf)
+#' }
 gtfs <- function(conf = NULL) {
-  ans <- utils::askYesNo("Do you want to import gtfs data into database?")
-  if (!ans) {
+  ans <- utils::askYesNo("Do you want to import gtfs data into database?", default = F)
+  if (!ans | is.na(ans)) {
     cat("\n------------------------\n")
     cat("Kaardikihte ei lisatud.")
     cat("\n------------------------\n")
+    return()
   }
   if (ans) {
     # Temp directory
-    tmp_dir <- "/tmp/gtfs"
+    tmp_dir <- sprintf("%s/tmp/%s", system.file(package = "estmap"), "gtfs")
     if (!dir.exists(tmp_dir)) {
       dir.create(tmp_dir)
     }
+    cat("\n------------------------\n")
+    cat(sprintf("Failide salvestamise kataloog: %s", tmp_dir))
+    cat("\n------------------------\n")
     # Download link
     url <- "http://www.peatus.ee/gtfs/"
     # Estonia shapefile (ZIP archive)
@@ -109,6 +113,7 @@ gtfs <- function(conf = NULL) {
           ALTER TABLE %s%s SET SCHEMA %s", conf$schema, conf$table, tabeli_suffix, conf$table, tabeli_suffix, conf$schema)
           cat("\n----------------\nMuudame schema.\n")
           cat(q)
+          cat("\n\n")
           DBI::dbExecute(conn, q)
           # ----------- Point to path teisendus ------------
           # Algoritmi juhend!
@@ -116,11 +121,8 @@ gtfs <- function(conf = NULL) {
           algorithm <- "qgis:pointstopath"
           # cat(qgis_show_help(algorithm = algorithm))
           # Run algorithm.
-          ## !!!!!!!!!!!!!!!!!!!! NB! pead muutma pythoni skripti 188 rida.
-          ## File "/usr/share/qgis/python/plugins/processing/algs/qgis/PointsToPaths.py", line 188, in processAlgorithm
-          ## Panin sinna mingi faili, sest temp faili ei osanud python kirjutada ja pärast lugeda.
           output <- sprintf(
-            'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' table=\"%s\".\"%s\" (geom)',
+            'postgres://dbname=\'%s\' host=%s port=%s user=\'%s\' sslmode=%s password=\'%s\' table=\"%s\".\"%s\" (geometry)',
             conf$dbname, conf$host, conf$port, conf$user, conf$sslmode, conf$password,
             conf$schema, conf$table
           )
@@ -136,6 +138,7 @@ gtfs <- function(conf = NULL) {
             GROUP_FIELD = "shape_id",
             INPUT = input,
             ORDER_FIELD = "shape_pt_sequence",
+            OUTPUT_TEXT_DIR = "/tmp/gtfs_output_text_dir/",
             OUTPUT = output,
             .quiet = TRUE
           )
@@ -181,7 +184,7 @@ gtfs <- function(conf = NULL) {
       # system(sprintf("ogrinfo %s xgtfs.trips ", pg))
       # system(sprintf("ogrinfo %s xgtfs.trips ", pg))
     }
-    # Delete temp directory
-    # system(sprintf("rm -rf %s/*.csv", tmp_dir))
+    # Delete unnecessary files.
+    system(sprintf("rm -rf %s/*.csv", tmp_dir))
   }
 }

R/inspire_grids.R

@@ -7,21 +7,22 @@
 #' @keywords postgis, maps, ESRI Shpfile, OSM
 #' @export
 #' @examples
-#' ## Not run:
-#' ##
-#' ## inspire_grids()
-#' ##
-#' ## End(**Not run**)
+#' \dontrun{
+#'
+#' conf <- ruut::get_config()
+#' inspire_grids(conf = conf)
+#' }
 inspire_grids <- function(conf = NULL) {
-  ans <- utils::askYesNo("Do you want to import maps into database?")
-  if (!ans) {
+  ans <- utils::askYesNo("Do you want to import INSPIRE grids into database?", default = F)
+  if (!ans | is.na(ans)) {
     cat("\n------------------------\n")
     cat("Kaardikihte ei lisatud.")
     cat("\n------------------------\n")
+    return()
   }
   if (ans) {
     # Temp directory
-    tmp_dir <- "/tmp/inspire"
+    tmp_dir <- sprintf("%s/tmp/%s", system.file(package = "estmap"), "inspire")
     if (!dir.exists(tmp_dir)) {
       dir.create(tmp_dir)
     }
@@ -65,7 +66,7 @@ inspire_grids <- function(conf = NULL) {
         ls[i], conf$schema, conf$table
       ))
     }
-    # Delete temp directory
-    # system(sprintf("rm -rf %s/*", tmp_dir))
+    # Delete unnecessary files.
+    system(sprintf("find %s -type f -not -name '%s' -print0 | xargs -0 rm --", tmp_dir, map_shapefile))
   }
 }

R/maaamet_aadressandmed.R

@@ -23,21 +23,23 @@
 #' @keywords postgis, maps, ESRI Shpfile, OSM
 #' @export
 #' @examples
-#' ## Not run:
-#' ##
-#' ## maaamet_aadressandmed()
-#' ##
-#' ## End(**Not run**)
+#' \dontrun{
+#'
+#' conf <- ruut::get_config()
+#' maaamet_aadressandmed(conf = conf)
+#'
+#' }
 maaamet_aadressandmed <- function(conf = NULL) {
-  ans <- utils::askYesNo("Do you want to import aadressandmed into database? It takes 2 hours!")
-  if (!ans) {
+  ans <- utils::askYesNo("Do you want to import aadressandmed into database?", default = F)
+  if (!ans | is.na(ans)) {
     cat("\n------------------------\n")
     cat("Kaardikihte ei lisatud.")
     cat("\n------------------------\n")
+    return()
   }
   if (ans) {
     # Temp directory
-    tmp_dir <- "/tmp/maaamet_aadressandmed"
+    tmp_dir <- sprintf("%s/tmp/%s", system.file(package = "estmap"), "maaamet_aadressandmed")
     if (!dir.exists(tmp_dir)) {
       dir.create(tmp_dir)
     }
@@ -80,9 +82,9 @@ maaamet_aadressandmed <- function(conf = NULL) {
     # vignette("readr")
     # vignette("locales")
     dataset <- list.files(
-      path = "/tmp/maaamet_aadressandmed",
-      # pattern = "*.csv",
-      pattern = "*505*",
+      path = tmp_dir,
+      pattern = "*.csv",
+      # pattern = "*505*",
       full.names = T
     ) %>%
       purrr::map_df(~ readr::read_csv2(.,
@@ -122,11 +124,6 @@ maaamet_aadressandmed <- function(conf = NULL) {
           asciify = FALSE
         ) # readr::default_locale()
       ))
-    # write.csv(x = dataset, file = "/tmp/maaamet_aadressandmed/xxxx.csv", row.names = F)
-    # Versioon 2 kokkupakkimisest
-    # dataset <- do.call("rbind", lapply(ls_long[1:5], FUN = function(files) {
-    #   read.csv(files, sep = ";", dec = ",", stringsAsFactors = F, nrows = 2)
-    # }))
     saveTo <- sprintf("%s/%s", tmp_dir, "aadressandmed.csv")
     utils::write.csv(dataset, file = saveTo, row.names = F, na = "")
 
@@ -150,7 +147,7 @@ maaamet_aadressandmed <- function(conf = NULL) {
       #   ), pg, conf$schema, conf$table, tmp_dir, "aadressandmed.csv"
       # )
       cat(cmd)
-      cat('\n')
+      cat("\n")
       # -overwrite vs. -append  -progress
       # -sql ST_Transform(ST_SetSRID(ST_MakePoint(viitepunkt_x::double precision, viitepunkt_y::double precision),3301),4326) as geometry
       system(cmd)
@@ -198,7 +195,7 @@ maaamet_aadressandmed <- function(conf = NULL) {
       # ogr2ogr help.
       # system("ogr2ogr --long-usage")
     }
-    # Delete temp directory
+    # Delete unnecessary files.
     system(sprintf("rm -rf %s/*.csv", tmp_dir))
   }
 }

inst/tallinna_transporditsoonid/tln_transporditsoonid.cpg

@@ -1 +0,0 @@
-UTF-8

inst/tallinna_transporditsoonid/tln_transporditsoonid.prj

@@ -1 +0,0 @@
-GEOGCS["GCS_WGS_1984",DATUM["D_WGS_1984",SPHEROID["WGS_1984",6378137,298.257223563]],PRIMEM["Greenwich",0],UNIT["Degree",0.017453292519943295]]

inst/tallinna_transporditsoonid/tln_transporditsoonid.qpj

@@ -1 +0,0 @@
-GEOGCS["WGS 84",DATUM["WGS_1984",SPHEROID["WGS 84",6378137,298.257223563,AUTHORITY["EPSG","7030"]],AUTHORITY["EPSG","6326"]],PRIMEM["Greenwich",0,AUTHORITY["EPSG","8901"]],UNIT["degree",0.0174532925199433,AUTHORITY["EPSG","9122"]],AUTHORITY["EPSG","4326"]]

inst/tallinna_transporditsoonid/tsoon-asum-linnaosad_seosed.csv

@@ -1,269 +0,0 @@
-Uus nr,Vana nr,Soome nr,Nimi,Asum,Linnaosa
-T00101,1001,2001,Tiskre,Tiskre,Haabersti
-T00102,1002,2001,Tiskre,Tiskre,Haabersti
-T00200,2,2002,Kakumäe,Kakumäe,Haabersti
-T00301,3001,2003,Landi,Kakumäe,Haabersti
-T00302,3002,2003,Landi,Vismeistri,Haabersti
-T00400,4,2004,Vismeistri,Pikaliiva,Haabersti
-T00500,5,2005,Merirahu,Õismäe,Haabersti
-T00601,6001,2006,Pikaliiva,Pikaliiva,Haabersti
-T00602,6002,2006,Pikaliiva,Õismäe,Haabersti
-T00700,7,2007,Rocca al Mare,Rocca al Mare,Haabersti
-T00801,8001,2008,Haabersti,Haabersti,Haabersti
-T00802,8002,2008,Haabersti,Haabersti,Haabersti
-T00900,9,2009,Karikakra,Väike-Õismäe,Haabersti
-T01000,10,2010,Sinilille,Väike-Õismäe,Haabersti
-T01100,11,2011,Meelespea,Väike-Õismäe,Haabersti
-T01200,12,2012,Väike-Õismae,Väike-Õismäe,Haabersti
-T01300,13,2013,Veskimetsa,Veskimetsa,Haabersti
-T01400,14,2014,Nurmenuku,Väike-Õismäe,Haabersti
-T01500,15,2015,Kullerkupu,Väike-Õismäe,Haabersti
-T01600,16,2016,Bussipark,Kadaka,Mustamäe
-T01700,17,2017,Järveotsa,Väike-Õismäe,Haabersti
-T01800,18,2018,Kadaka,Kadaka,Mustamäe
-T01900,19,2019,Astangu,Astangu,Haabersti
-T02001,2021,2020,Tähetorni,Mäeküla,Haabersti
-T02002,2022,2020,Tähetorni,Astangu,Haabersti
-T02100,21,2021,Joostimäe,Kadaka,Mustamäe
-T02200,22,2022,Aiandi,Kadaka,Mustamäe
-T02300,23,2023,Sääse,Sääse,Mustamäe
-T02400,24,2024,Mustamäe,Mustamäe,Mustamäe
-T02600,26,2026,Sipelga,Mustamäe,Mustamäe
-T02700,27,2027,Lepistiku,Mustamäe,Mustamäe
-T02800,28,2028,Tervise,Mustamäe,Mustamäe
-T02900,29,2029,TTÜ,Mustamäe,Mustamäe
-T03000,30,2030,Männi park,Mustamäe,Mustamäe
-T03100,31,2031,Liivaku,Mustamäe,Mustamäe
-T03200,32,2032,Kaja,Mustamäe,Mustamäe
-T03300,33,2033,A. H. Tammsaare tee,Mustamäe,Mustamäe
-T03400,34,2034,Szolnok,Mustamäe,Mustamäe
-T03500,35,2035,Männi,Mustamäe,Mustamäe
-T03600,36,2036,TTÜ,Kadaka,Mustamäe
-T03700,37,2037,Mäepealse,Kadaka,Mustamäe
-T03801,3801,2038,Kadaka puiestee,Vana-Mustamäe,Nõmme
-T03802,3802,2038,Kadaka puiestee,Vana-Mustamäe,Nõmme
-T03900,39,2039,Vana-Mustamäe,Vana-Mustamäe,Nõmme
-T04000,40,2040,Kalda,Pääsküla,Nõmme
-T04100,41,2041,Salve,Hiiu,Nõmme
-T04200,42,2042,Laane,Kivimäe,Nõmme
-T04300,43,2043,Rohula,Pääsküla,Nõmme
-T04400,44,2044,Turbasambla,Pääsküla,Nõmme
-T04500,45,2045,Vana Pääsküla,Pääsküla,Nõmme
-T04600,46,2046,Pääsküla prügila,Pääsküla,Nõmme
-T04700,47,2047,Naaritsa,Pääsküla,Nõmme
-T04800,48,2048,Vikerkaare,Pääsküla,Nõmme
-T04900,49,2049,Kivimäe,Kivimäe,Nõmme
-T05001,5051,2050,Hõimu,Kivimäe,Nõmme
-T05002,5052,2050,Hõimu,Kivimäe,Nõmme
-T05100,51,2051,Raudtee,Hiiu,Nõmme
-T05201,5251,2052,Hiiu,Hiiu,Nõmme
-T05202,5252,2052,Hiiu,Hiiu,Nõmme
-T05301,5351,2053,Männiku,Nõmme,Nõmme
-T05302,5352,2053,Männiku,Männiku,Nõmme
-T05401,5451,2054,Nurme,Nõmme,Nõmme
-T05402,5452,2054,Nurme,Nõmme,Nõmme
-T05403,5453,2054,Nurme,Nõmme,Nõmme
-T05404,5454,2054,Nurme,Nõmme,Nõmme
-T05500,55,2055,Roheline,Nõmme,Nõmme
-T05600,56,2056,Hiiu jaam,Hiiu,Nõmme
-T05700,57,2057,Nõmme,Nõmme,Nõmme
-T05801,5851,2058,Rahumäe,Rahumäe,Nõmme
-T05802,5852,2058,Rahumäe,Rahumäe,Nõmme
-T05803,5853,2058,Rahumäe,Rahumäe,Nõmme
-T05901,5951,2059,Kraavi,Männiku,Nõmme
-T05902,5952,2059,Kraavi,Männiku,Nõmme
-T06001,6061,2060,Rahumäe kalmistu,Rahumäe,Nõmme
-T06002,6062,2060,Rahumäe kalmistu,Rahumäe,Nõmme
-T06101,6161,2061,Raku järv,Männiku,Nõmme
-T06102,6162,2061,Raku järv,Männiku,Nõmme
-T06200,62,2062,Raudalu,Raudalu,Nõmme
-T06301,6361,2063,Raku,Liiva,Nõmme
-T06302,6362,2063,Raku,Raudalu,Nõmme
-T06400,64,2064,Liiva 1,Liiva,Nõmme
-T06500,65,2065,Liiva 2,Ülemiste järv,Kesklinn
-T06600,66,2066,Risti,Järve,Kristiine
-T06700,67,2067,Järve,Ülemiste järv,Kesklinn
-T06800,68,2068,Tuisu,Järve,Kristiine
-T06901,6961,2069,Marsi,Tondi,Kristiine
-T06902,6962,2069,Marsi,Tondi,Kristiine
-T07001,7071,2070,Kalev,Kitseküla,Kesklinn
-T07002,7072,2070,Kalev,Kitseküla,Kesklinn
-T07100,71,2071,Tondi,Tondi,Kristiine
-T07200,72,2072,Räägu,Lilleküla,Kristiine
-T07301,7301,2073,Kristiine keskus,Lilleküla,Kristiine
-T07302,7302,2073,Kristiine keskus,Lilleküla,Kristiine
-T07400,74,2074,Tallinn-Väike,Kitseküla,Kesklinn
-T07501,7501,2075,Tedre,Lilleküla,Kristiine
-T07502,7502,2075,Tedre,Lilleküla,Kristiine
-T07701,7701,2077,Välja,Lilleküla,Kristiine
-T07702,7702,2077,Välja,Lilleküla,Kristiine
-T07801,7801,2078,Löwenruh,Lilleküla,Kristiine
-T07802,7802,2078,Löwenruh,Lilleküla,Kristiine
-T07900,79,2079,Forelli,Lilleküla,Kristiine
-T08000,80,2080,Humala,Mustjõe,Haabersti
-T08101,8101,2081,Siili,Siili,Mustamäe
-T08102,8102,2081,Siili,Sääse,Mustamäe
-T08201,8201,2082,Vilja,Lilleküla,Kristiine
-T08202,8202,2082,Vilja,Lilleküla,Kristiine
-T08300,83,2083,Mustjõe,Mustjõe,Haabersti
-T08400,84,2084,Haabersti,Veskimetsa,Haabersti
-T08500,85,2085,Rocca-al-Mare,Mustjõe,Haabersti
-T08600,86,2086,Merimetsa,Merimetsa,Põhja- Tallinn
-T08700,87,2087,Merimetsa,Merimetsa,Põhja- Tallinn
-T08800,88,2088,Ülase,Lilleküla,Kristiine
-T08900,89,2089,Kopli,Kopli,Põhja- Tallinn
-T09000,90,2090,Sepa,Kopli,Põhja- Tallinn
-T09100,91,2091,Sirbi,Kopli,Põhja- Tallinn
-T09201,9201,2092,Lahesuu,Kopli,Põhja- Tallinn
-T09202,9202,2092,Lahesuu,Paljassaare,Põhja- Tallinn
-T09301,9301,2093,Paljassaare,Paljassaare,Põhja- Tallinn
-T09302,9302,2093,Paljassaare,Paljassaare,Põhja- Tallinn
-T09401,9401,2094,Pikakari,Paljassaare,Põhja- Tallinn
-T09402,9402,2094,Pikakari,Paljassaare,Põhja- Tallinn
-T09500,95,2095,Sitsi,Sitsi,Põhja- Tallinn
-T09600,96,2096,Maleva,Pelguranna,Põhja- Tallinn
-T09700,97,2097,Pelguranna,Pelguranna,Põhja- Tallinn
-T09800,98,2098,Angerja,Sitsi,Põhja- Tallinn
-T09900,99,2099,Karjamaa,Karjamaa,Põhja- Tallinn
-T10000,100,2100,Rukki,Pelgulinn,Põhja- Tallinn
-T10100,101,2101,Härjapea,Pelgulinn,Põhja- Tallinn
-T10200,102,2102,Hipodroom,Pelgulinn,Põhja- Tallinn
-T10300,103,2103,Nisu,Pelgulinn,Põhja- Tallinn
-T10400,104,2104,Kungla,Kalamaja,Põhja- Tallinn
-T10500,105,2105,Volta,Kalamaja,Põhja- Tallinn
-T10600,106,2106,Volta,Kalamaja,Põhja- Tallinn
-T10700,107,2107,Volta,Kalamaja,Põhja- Tallinn
-T10800,108,2108,Lennusadama,Kalamaja,Põhja- Tallinn
-T10900,109,2109,Kalamaja 1,Kalamaja,Põhja- Tallinn
-T11000,110,2110,Kalamaja 2,Kalamaja,Põhja- Tallinn
-T11100,111,2111,Linnahall,Kalamaja,Põhja- Tallinn
-T11200,112,2112,Kalamaja,Kalamaja,Põhja- Tallinn
-T11300,113,2113,Telliskivi,Kalamaja,Põhja- Tallinn
-T11400,114,2114,Kelmiküla,Kelmiküla,Põhja- Tallinn
-T11500,115,2115,Tehnika,Kassisaba,Kesklinn
-T11600,116,2116,Hirvepark,Vanalinn,Kesklinn
-T11700,117,2117,Balti jaam,Kelmiküla,Põhja- Tallinn
-T11800,118,2118,Tornide väljak,Vanalinn,Kesklinn
-T11900,119,2119,Mere puiestee,Vanalinn,Kesklinn
-T12000,120,2120,Toompea,Vanalinn,Kesklinn
-T12100,121,2121,Vabaduse väljak,Vanalinn,Kesklinn
-T12200,122,2122,Endla,Kassisaba,Kesklinn
-T12300,123,2123,Koidu,Kassisaba,Kesklinn
-T12400,124,2124,Uus maailm,Uus Maailm,Kesklinn
-T12500,125,2125,Vineeri,Uus Maailm,Kesklinn
-T12600,126,2126,Tõnismäe,Tõnismäe,Kesklinn
-T12700,127,2127,Roosikrantsi,Tõnismäe,Kesklinn
-T12800,128,2128,Tatari,Tatari,Kesklinn
-T12900,129,2129,Veerenni,Veerenni,Kesklinn
-T13000,130,2130,Trammidepoo,Veerenni,Kesklinn
-T13101,13101,2131,Vaikne park,Veerenni,Kesklinn
-T13102,13102,2131,Vaikne park,Juhkentali,Kesklinn
-T13200,132,2132,Siselinna kalmistu,Juhkentali,Kesklinn
-T13300,133,2133,Liivalaia,Veerenni,Kesklinn
-T13400,134,2134,Tiigiveski park,Veerenni,Kesklinn
-T13501,135,2135,Keldrimäe,Sibulaküla,Kesklinn
-T13502,135,2135,Keldrimäe,Keldrimäe,Kesklinn
-T13600,136,2136,Vabaduse väljak,Südalinn,Kesklinn
-T13700,137,2137,Maakri,Maakri,Kesklinn
-T13800,138,2138,Kaubamaja,Südalinn,Kesklinn
-T13900,139,2139,Kompassi,Kompassi,Kesklinn
-T14000,140,2140,Hobujaama,Sadama,Kesklinn
-T14100,141,2141,Keskturg,Keldrimäe,Kesklinn
-T14200,142,2142,Autobussijaam,Keldrimäe,Kesklinn
-T14300,143,2143,Juhkentali,Juhkentali,Kesklinn
-T14400,144,2144,Luite,Ülemiste järv,Kesklinn
-T14500,145,2145,Veepuhastusjaam,Ülemiste järv,Kesklinn
-T14601,14601,2146,Sikupilli,Sikupilli,Lasnamäe
-T14602,14602,2146,Sikupilli,Sikupilli,Lasnamäe
-T14700,147,2147,Pae,Sikupilli,Lasnamäe
-T14800,148,2148,Ülemiste keskus,Ülemiste,Lasnamäe
-T14900,149,2149,Lennujaam,Ülemiste,Lasnamäe
-T15001,15001,2150,Mõigu,Ülemiste järv,Kesklinn
-T15002,15002,2150,Mõigu,Mõigu,Kesklinn
-T15100,151,2151,Pae järv,Sikupilli,Lasnamäe
-T15200,152,2152,Pae park,Sikupilli,Lasnamäe
-T15300,153,2153,Uus-Pae,Pae,Lasnamäe
-T15400,154,2154,Liikuri,Kurepõllu,Lasnamäe
-T15500,155,2155,Uuslinn,Uuslinn,Lasnamäe
-T15601,15601,2156,Oru,Kadriorg,Kesklinn
-T15602,15602,2156,Oru,Kadriorg,Kesklinn
-T15700,157,2157,Kadrioru park,Kadriorg,Kesklinn
-T15800,158,2158,J. Poska,Kadriorg,Kesklinn
-T15900,159,2159,Kadriorg,Kadriorg,Kesklinn
-T16000,160,2160,Uus-Sadama,Sadama,Kesklinn
-T16100,161,2161,Ülikooli,Raua,Kesklinn
-T16200,162,2162,D-terminal,Sadama,Kesklinn
-T16300,163,2163,Reisisadam,Sadama,Kesklinn
-T16400,164,2164,Lasnamägi,Kurepõllu,Lasnamäe
-T16500,165,2165,Maarjamägi,Kadriorg,Kesklinn
-T16601,16601,2166,Paevälja,Loopealse,Lasnamäe
-T16602,16602,2166,Paevälja,Paevälja,Lasnamäe
-T16700,167,2167,Vana-Kuuli,Paevälja,Lasnamäe
-T16800,168,2168,Kotka Kauplus,Laagna,Lasnamäe
-T16901,169,2169,Laagna,Laagna,Lasnamäe
-T16902,169,2169,Laagna,Laagna,Lasnamäe
-T17001,17001,2170,Ülemiste,Ülemiste,Lasnamäe
-T17002,17002,2170,Ülemiste,Ülemiste,Lasnamäe
-T17101,17101,2171,Vesse,Sõjamäe,Lasnamäe
-T17102,17102,2171,Vesse,Sõjamäe,Lasnamäe
-T17200,172,2172,Kesk-Sõjamäe,Ülemiste,Lasnamäe
-T17301,17301,2173,Suur-Sõjamäe,Sõjamäe,Lasnamäe
-T17302,17302,2173,Suur-Sõjamäe,Sõjamäe,Lasnamäe
-T17400,174,2174,Raudbetooni,Sõjamäe,Lasnamäe
-T17501,17501,2175,Betooni põik,Sõjamäe,Lasnamäe
-T17502,17502,2175,Betooni põik,Sõjamäe,Lasnamäe
-T17601,17601,2176,Gaasi,Sõjamäe,Lasnamäe
-T17602,17602,2176,Gaasi,Sõjamäe,Lasnamäe
-T17701,17701,2177,Pinna,Sõjamäe,Lasnamäe
-T17702,17702,2177,Pinna,Sõjamäe,Lasnamäe
-T17800,178,2178,Loitsu,Laagna,Lasnamäe
-T17900,179,2179,Katleri,Katleri,Lasnamäe
-T18000,180,2180,Mereakadeemia,Tondiraba,Lasnamäe
-T18100,181,2181,Tähesaju tee,Tondiraba,Lasnamäe
-T18200,182,2182,Tondiraba,Tondiraba,Lasnamäe
-T18301,18301,2183,Pikamägi,Sõjamäe,Lasnamäe
-T18302,18302,2183,Pikamägi,Väo,Lasnamäe
-T18401,18401,2184,Paneeli,Sõjamäe,Lasnamäe
-T18402,18402,2184,Paneeli,Väo,Lasnamäe
-T18500,185,2185,Väo karjäär,Väo,Lasnamäe
-T18600,186,2186,Väo 2,Väo,Lasnamäe
-T18700,187,2187,Raadiku,Mustakivi,Lasnamäe
-T18800,188,2188,Ümera,Seli,Lasnamäe
-T18900,189,2189,Seli,Seli,Lasnamäe
-T19000,190,2190,Mustakivi,Mustakivi,Lasnamäe
-T19100,191,2191,Priisle,Seli,Lasnamäe
-T19200,192,2192,Iru Hooldekodu,Priisle,Lasnamäe
-T19300,193,2193,Reinumägi,Priisle,Lasnamäe
-T19400,194,2194,Priisle kauplus,Priisle,Lasnamäe
-T19500,195,2195,Kuristiku,Kuristiku,Lasnamäe
-T19600,196,2196,Läänemere tee,Kuristiku,Lasnamäe
-T19700,197,2197,Lillepi,Maarjamäe,Pirita
-T19801,19801,2198,Maarjamäe,Kose,Pirita
-T19802,19802,2198,Maarjamäe,Maarjamäe,Pirita
-T19900,199,2199,Lükati tee,Kose,Pirita
-T20000,200,2200,Rummu,Pirita,Pirita
-T20100,201,2201,Metsakooli,Kose,Pirita
-T20200,202,2202,Vabaõhukooli,Kose,Pirita
-T20300,203,2203,Helmiku tee,Kose,Pirita
-T20400,204,2204,Pirita,Pirita,Pirita
-T20500,205,2205,Pirita rand,Mähe,Pirita
-T20601,20601,2206,Merivälja,Merivälja,Pirita
-T20602,20602,2206,Merivälja,Mähe,Pirita
-T20701,20701,2207,Metsakalmistu,Kloostrimetsa,Pirita
-T20702,20702,2207,Metsakalmistu,Kloostrimetsa,Pirita
-T20800,208,2208,Mähe,Mähe,Pirita
-T20900,209,2209,Merivälja pansion,Merivälja,Pirita
-T21001,21001,2210,Laiakküla,Iru,Pirita
-T21002,21002,2210,Laiakküla,Laiaküla,Pirita
-T21101,21101,2211,Teletorn,Lepiku,Pirita
-T21102,21102,2211,Teletorn,Laiaküla,Pirita
-T21200,212,2212,Lepiku,Lepiku,Pirita
-T21301,21301,2213,Mähe,Mähe,Pirita
-T21302,21302,2213,Mähe,Mähe,Pirita
-T21400,214,2214,Sõudebaasi,Pikaliiva,Haabersti
-T21500,215,2215,Sireli,Pääsküla,Nõmme
-T21600,216,2216,Gonsiori,Raua,Kesklinn
-T21700,217,2217,Laulupeo,Raua,Kesklinn
-T21800,218,2218,Ülemiste järv,Ülemiste järv,Kesklinn
-T21900,219,2219,Harku järv,Pikaliiva,Haabersti
-T22000,220,2220,Harku järv,Pikaliiva,Haabersti

inst/tallinna_transporditsoonid/tsoonide_pindalad.csv

@@ -1,269 +0,0 @@
-tsoon,pindala
-T00101,671179
-T00102,840625
-T00200,882664
-T00301,1395899
-T00302,907353
-T00400,1270539
-T00500,1296290
-T00601,848398
-T00602,392326
-T00700,855061
-T00801,413583
-T00802,1065794
-T00900,148597
-T01000,282204
-T01100,222854
-T01200,355157
-T01300,657854
-T01400,232067
-T01500,242457
-T01600,389290
-T01700,443671
-T01800,642891
-T01900,1070403
-T02001,1107219
-T02002,1285401
-T02100,701872
-T02200,511462
-T02300,470743
-T02400,361268
-T02600,485526
-T02700,295007
-T02800,247125
-T02900,702352
-T03000,546792
-T03100,663740
-T03200,393459
-T03300,502765
-T03400,245848
-T03500,288299
-T03600,403580
-T03700,481192
-T03801,960297
-T03802,584522
-T03900,561916
-T04000,1203998
-T04100,525819
-T04200,859046
-T04300,978364
-T04400,1007944
-T04500,438564
-T04600,453434
-T04700,652545
-T04800,931863
-T04900,471357
-T05001,307290
-T05002,903611
-T05100,566607
-T05201,271470
-T05202,560164
-T05301,1819945
-T05302,758720
-T05401,157406
-T05402,326259
-T05403,415943
-T05404,606802
-T05500,554409
-T05600,719973
-T05700,690000
-T05801,478687
-T05802,400058
-T05803,479707
-T05901,662635
-T05902,479501
-T06001,229028
-T06002,468924
-T06101,1444579
-T06102,1129582
-T06200,1303930
-T06301,1457656
-T06302,986366
-T06400,998355
-T06500,592021
-T06600,361343
-T06700,285970
-T06800,876820
-T06901,441437
-T06902,418305
-T07001,351555
-T07002,439595
-T07100,297644
-T07200,420298
-T07301,696858
-T07302,179349
-T07400,541806
-T07501,401391
-T07502,273894
-T07701,415802
-T07702,249996
-T07801,601459
-T07802,326600
-T07900,452283
-T08000,446862
-T08101,159885
-T08102,255207
-T08201,471911
-T08202,281308
-T08300,574844
-T08400,768691
-T08500,735038
-T08600,578842
-T08700,771921
-T08800,480837
-T08900,1236220
-T09000,458875
-T09100,839132
-T09201,564243
-T09202,397882
-T09301,757617
-T09302,744529
-T09401,897347
-T09402,845179
-T09500,275018
-T09600,344268
-T09700,698810
-T09800,347233
-T09900,964878
-T10000,556834
-T10100,806921
-T10200,437219
-T10300,400226
-T10400,158412
-T10500,191492
-T10600,160131
-T10700,211287
-T10800,324024
-T10900,216897
-T11000,191259
-T11100,237624
-T11200,157899
-T11300,186297
-T11400,144468
-T11500,149390
-T11600,223350
-T11700,137404
-T11800,223324
-T11900,290280
-T12000,111683
-T12100,163707
-T12200,176213
-T12300,258515
-T12400,241877
-T12500,287111
-T12600,107416
-T12700,89450
-T12800,109552
-T12900,157764
-T13000,342730
-T13101,280545
-T13102,164894
-T13200,360319
-T13300,126825
-T13400,187387
-T13501,131213
-T13502,323694
-T13600,97930
-T13700,162703
-T13800,174590
-T13900,156522
-T14000,181922
-T14100,231716
-T14200,263614
-T14300,348591
-T14400,1680941
-T14500,593790
-T14601,294954
-T14602,192846
-T14700,513792
-T14800,548924
-T14900,533536
-T15001,249383
-T15002,612553
-T15100,596534
-T15200,336734
-T15300,563186
-T15400,275023
-T15500,283044
-T15601,370192
-T15602,429929
-T15700,530344
-T15800,291091
-T15900,267628
-T16000,354288
-T16100,235264
-T16200,328905
-T16300,577938
-T16400,334934
-T16500,403436
-T16601,416694
-T16602,812922
-T16700,414953
-T16800,305896
-T16901,412782
-T16902,383243
-T17001,469197
-T17002,294225
-T17101,395385
-T17102,610266
-T17200,1541594
-T17301,1094467
-T17302,741544
-T17400,844987
-T17501,309163
-T17502,698841
-T17601,424686
-T17602,521142
-T17701,407597
-T17702,416452
-T17800,429612
-T17900,414327
-T18000,354989
-T18100,511762
-T18200,565448
-T18301,194923
-T18302,668067
-T18401,478800
-T18402,456275
-T18500,2267708
-T18600,625865
-T18700,583741
-T18800,330703
-T18900,549421
-T19000,516311
-T19100,422256
-T19200,830865
-T19300,459381
-T19400,293577
-T19500,324153
-T19600,420566
-T19700,553998
-T19801,606657
-T19802,621158
-T19900,1012167
-T20000,663675
-T20100,626097
-T20200,640891
-T20300,557499
-T20400,959292
-T20500,807634
-T20601,827640
-T20602,485888
-T20701,2418513
-T20702,906880
-T20800,926961
-T20900,702678
-T21001,1556763
-T21002,578373
-T21101,537603
-T21102,541257
-T21200,1043513
-T21301,579305
-T21302,696096
-T21400,783202
-T21500,689048
-T21600,174281
-T21700,301330
-T21800,11002068
-T21900,73532
-T22000,1605424

man/gtfs.Rd

@@ -13,7 +13,7 @@ gtfs(conf = NULL)
 No output.
 }
 \description{
-General Transit Feed Specification (GTFS). Source: \url{http://peatus.ee/gtfs/}. Ühistranspordiregistri avaandmed sisaldavad lihtsustatud struktuuri andmekoosseisuga väljavõtet Riiklikku Ühistranspordiregistrisse kantud andmetest, mis hõlmavad siseriiklikult käigus olevate ühistranspordiliinide kirjeldusi, sõidugraafikuid ja peatuste asukohtasid.\url{https://www.mnt.ee/et/uhistransport/uhistranspordi-infosusteem} Funktsioon impordib gtfs andmestiku importimine andmebaasi.
+General Transit Feed Specification (GTFS). Source: \url{http://peatus.ee/gtfs/}. Ühistranspordiregistri avaandmed sisaldavad lihtsustatud struktuuri andmekoosseisuga väljavõtet Riiklikku Ühistranspordiregistrisse kantud andmetest, mis hõlmavad siseriiklikult käigus olevate ühistranspordiliinide kirjeldusi, sõidugraafikuid ja peatuste asukohtasid.  \url{https://www.mnt.ee/et/uhistransport/uhistranspordi-infosusteem} Funktsioon impordib gtfs andmestiku importimine andmebaasi.
 }
 \details{
 Ühistranspordiregistri avaandmete andmefailid:
@@ -29,11 +29,11 @@ General Transit Feed Specification (GTFS). Source: \url{http://peatus.ee/gtfs/}.
 }
 }
 \examples{
-## Not run:
-##
-## gtfs()
-##
-## End(**Not run**)
+\dontrun{
+
+conf <- ruut::get_config()
+gtfs(conf = conf)
+}
 }
 \seealso{
 \code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}

man/inspire_grids.Rd

@@ -16,11 +16,11 @@ No output.
 Source: \url{https://www.eea.europa.eu/data-and-maps/data/eea-reference-grids-2}. Andmed salvestatakse postgisi andmebaasi. Schema = 'inspire'. Koniguratsiooni muutmiseks muuda konfiguratsiooni. Muutujate vaikeväärtused on sellised, et ei ole vaja midagi muuta.
 }
 \examples{
-## Not run:
-##
-## inspire_grids()
-##
-## End(**Not run**)
+\dontrun{
+
+conf <- ruut::get_config()
+inspire_grids(conf = conf)
+}
 }
 \seealso{
 \code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}

man/maaamet_aadressandmed.Rd

@@ -34,11 +34,12 @@ Aadressiobjekti liigid (Kood, Nimetus, UnikInit, taseOrig, register)
 }
 }
 \examples{
-## Not run:
-##
-## maaamet_aadressandmed()
-##
-## End(**Not run**)
+\dontrun{
+
+conf <- ruut::get_config()
+maaamet_aadressandmed(conf = conf)
+
+}
 }
 \seealso{
 \code{\link[ruut:get_config]{ruut::get_config()}}, \code{\link[ruut:copy_shp_to_db]{ruut::copy_shp_to_db()}}