ruut/R/ajutised_muutujad.R

ajutised_muutujad <- function(pk = NULL, obj = NULL, conf = NULL) {
  ## Tühi list muutuja, mida funktsioon tagastab.
  l <- list()
  ## Objekti muutujale väärtuste omistamine, kui seda pole antud.
  if (is.null(obj)) {
    obj <- "demo"
  }
  obj <- gsub(" ", "_", tolower(obj))
  ## Konfiguratsiooni muutujale väärtuste omistamine, kui seda pole antud.
  if (is.null(conf)) {
    conf <- ruut::get_config()
    conf$schema <- obj
    l$conf <- conf
  }
  ## Piirkonna muutujale väärtuste omistamine, kui seda pole antud.
  if (is.null(pk)) {
    # geojson_txt <- paste('{"type":"MultiPoint","coordinates":[[658300,6474800],[658300,6475000],[658700,6476000],[659600,6475000],[659600,6474800],[658300,6474800]]}')
    geojson_txt <- paste('{"type":"MultiPoint","coordinates":[[658400,6474800],[658300,6475000],[658700,6476000],[659600,6475000],[659600,6474800],[659200,6474950],[658400,6474800]]}')
    pk <- sf::read_sf(geojson_txt)
    pk <- sf::st_cast(pk, "POLYGON")
    sf::st_crs(pk) <- 3301
    attributes(pk)$names <- attributes(pk)$sf_column <- "geom"
  }
  ## ------------- muutujad ja teisendused ---------------
  tmp_dir <- tempdir() # ajutine kataloog
  tmp_gpkg_file <- sprintf("%s/%s.gpkg", tmp_dir, obj) # ajutine gpkg fail
  conf$gpkg_home <- tmp_dir
  conf$gpkg_file <- obj
  conf$gpkg_table <- "test_layer_1"
  ## Loome lingid gpkg ajutistest tabelitest lugemiseks ja kirjutamiseks
  l$tmp_gpkg_file_output_1 <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = F)
  l$tmp_gpkg_file_input_1 <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = T)
  conf$gpkg_table <- "test_layer_2"
  l$tmp_gpkg_file_output_2 <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = F)
  l$tmp_gpkg_file_input_2 <- ruut::construct_to_gpkg_output_file_str(conf = conf, is_input_str = T)
  # Loome ajutise gpkg faili koos ajutise tabeliga.
  sf::write_sf(pk, dsn = tmp_gpkg_file, layer = "test_layer_0", driver = "gpkg", fid_column_name = "id", delete_dsn = T)
  cat(sprintf("\n------------------\nAjutise gpkg faili asukoht: %s\n", tmp_gpkg_file))
  sf::st_layers(dsn = tmp_gpkg_file)
  # unlink(l$tmp_gpkg_file)
  l$obj <- obj
  l$tmp_gpkg_file <- tmp_gpkg_file
  l$tmp_dir <- tmp_dir
  l$pk <- pk
  return(l)
}