| 12345678910111213141516171819 |
- #' Uute geomeetriliste joonte genereerimine ja salvestamine andmebaasi.
- #'
- source("01_funktsioonid.R")
- ## 2. Ortofotode allalaadimine
- # kaardiruutude nimekiri
- epk10t <- pk_epk10t(obj = objektid[i])
- epk10t_nr <- epk10t$nr
- j <- 2
- pattern <- sprintf("%s.tif", epk10t_nr[j])
- # pattern <- "62084.tif"
- ls <- list.files(path = "~/ortofotod/", pattern = pattern)
- if (length(ls) == 0) {
- estmap::maaamet_ortofotod(epk10t = epk10t_nr[j])
- }
- ## 6. Piirkonna piirikastide maatriksite loomine
|
