|
|
@@ -1,6 +1,5 @@
|
|
|
#' INSPIRE kaardiruudud
|
|
|
#'
|
|
|
-<<<<<<< HEAD
|
|
|
#' Source: 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.
|
|
|
#' @param config list configuration file ruut::get_config()
|
|
|
#' @param schema str database schema name. Deafult is 'inspire'
|
|
|
@@ -16,14 +15,6 @@
|
|
|
#' ## End(**Not run**)
|
|
|
inspire_grids <- function(config = NULL, schema = "inspire",
|
|
|
url = NULL) {
|
|
|
-=======
|
|
|
-#' Source: https://www.eea.europa.eu/data-and-maps/data/eea-reference-grids-2. Andmed salvestatakse postgisi andmebaasi. Schema = 'inspire'. Koniguratsiooni muutmiseks muuda konfiguratsiooni.
|
|
|
-#' @keywords postgis, maps, ESRI Shpfile
|
|
|
-#' @export
|
|
|
-#' @examples
|
|
|
-#' inspire_grids()
|
|
|
-inspire_grids <- function() {
|
|
|
->>>>>>> 741ecf506c7c6a793e1f9b1ca6fab87fdf5738ce
|
|
|
ans <- utils::askYesNo("Do you want to import maps into database?")
|
|
|
if (!ans) {
|
|
|
cat("\n------------------------\n")
|
|
|
@@ -70,5 +61,7 @@ inspire_grids <- function() {
|
|
|
ls[i], config$schema, config$table
|
|
|
))
|
|
|
}
|
|
|
+ # Delete temp directory
|
|
|
+ system(sprintf("rm -rf %s/*", tmp_dir))
|
|
|
}
|
|
|
}
|