estmap/R/ajutised_muutujad.R

#' 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)
}