Lisatud 'ajutised_muutujad'.

.Rbuildignore

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

NAMESPACE

@@ -12,6 +12,7 @@ export(maaamet_kataster)
 export(maaamet_mullakaart)
 export(maaamet_ortofotod)
 export(minu_teed_loomine)
+export(minu_teed_riigiteed)
 export(osm_shp)
 export(teeregister_teed)
 export(teeregister_wfs)

R/ajutised_muutujad.R

@@ -0,0 +1,28 @@
+#' Ajutised muutujad
+#' @param conf A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.
+ajutised_muutujad <- function(conf) {
+  l = list()
+  if (is.null(conf)) {
+    conf <- ruut::get_config()
+  }
+  ## Defineerime ajutised failid ja muutujad.
+  tmp_dir <- tempdir() # ajutine kataloog
+  obj <- "demo"
+  l[["tmp_gpkg_file"]] <- sprintf("%s/%s.gpkg", tmp_dir, obj) # ajutine gpkg fail
+  conf$gpkg_home <- tmp_dir
+  conf$gpkg_file <- obj
+  conf$primary_key <- "id"
+  ## Loome lingid gpkg ajutistest tabelitest lugemiseks ja kirjutamiseks
+  for (i in 6:1) {
+    layer_name <- sprintf("test_layer_%s", i)
+    conf$gpkg_table <- layer_name
+    l[[sprintf("layer_%s", i)]] <- layer_name
+    l[[sprintf("tmp_gpkg_file_output_%s", i)]] <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = F)
+    l[[sprintf("tmp_gpkg_file_input_%s", i)]] <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = T)
+  }
+  ## ================= Schema 'minu_teed' ====================
+  conf$schema <- "minu_teed"
+  ruut::db_create_new_schema(conf = conf)
+  l[["conf"]] <- conf
+  return(l)
+}

man/ajutised_muutujad.Rd

@@ -0,0 +1,14 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/ajutised_muutujad.R
+\name{ajutised_muutujad}
+\alias{ajutised_muutujad}
+\title{Ajutised muutujad}
+\usage{
+ajutised_muutujad(conf)
+}
+\arguments{
+\item{conf}{A list() of configuration variables. Default values \code{\link[ruut]{get_config}}.}
+}
+\description{
+Ajutised muutujad
+}