Lisatud 'gpkg_andmebaasi_kihtide_nimekiri'.

NAMESPACE

@@ -17,6 +17,7 @@ export(db_repair_tabel_geometry)
 export(db_schema_tablenames)
 export(db_table_colnames)
 export(get_config)
+export(gpkg_andmebaasi_kihtide_nimekiri)
 export(gpkg_piirkonnale_joonte_lisamine)
 export(gpkg_piirkonnale_polygoonide_lisamine)
 export(gpkg_piirkonnale_punktide_lisamine)

R/gpkg_andmebaasi_kihtide_nimekiri.R

@@ -0,0 +1,26 @@
+#' GPKG andmebaasi kihtide nimekiri
+#'
+#' GPKG layers list.
+#'
+#' @param obj str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.
+#' @param gpkg_home path Salvestatavate GPKG faili asukoht.
+#' @return list.
+#' @seealso [sf::st_read()], [sf::write_sf()],[sf::st_transform()],[ruut::gpkg_piirkonnale_ruudustike_lisamine()] ,[ruut::gpkg_piirkonnale_polygoonide_lisamine()],[ruut::gpkg_sellest_alustame_gpkg_loomist()],[ruut::gpkg_piirkonnale_joonte_lisamine()],[ruut::gpkg_piirkonnale_punktide_lisamine()],[ruut::gpkg_andmebaasi_kihtide_nimekiri()]
+#' @keywords GPKG
+#' @export
+#' @examples
+#' \dontrun{
+#'
+#' gpkg_home <- "/tmp"
+#' obj <- "marja"
+#' gpkg_andmebaasi_kihtide_nimekiri(obj = obj, gpkg_home = gpkg_home)
+#' }
+gpkg_andmebaasi_kihtide_nimekiri <- function(obj = NULL, gpkg_home = "/tmp") {
+  dsn <- sprintf("%s/%s.gpkg", gpkg_home, obj)
+  if (!file.exists(dsn)) {
+    cat(sprintf("\nSellist faili \"%s\" ei leitud.\n", dsn))
+    return(NULL)
+  }
+  ## Layers list
+  sf::st_layers(dsn = dsn)
+}

man/gpkg_andmebaasi_kihtide_nimekiri.Rd

@@ -0,0 +1,31 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/gpkg_andmebaasi_kihtide_nimekiri.R
+\name{gpkg_andmebaasi_kihtide_nimekiri}
+\alias{gpkg_andmebaasi_kihtide_nimekiri}
+\title{GPKG andmebaasi kihtide nimekiri}
+\usage{
+gpkg_andmebaasi_kihtide_nimekiri(obj = NULL, gpkg_home = "/tmp")
+}
+\arguments{
+\item{obj}{str Objekti nimi. Edaspidi on oluline ainult see nimi. Piirkonna geomeetrilist joont ei ole vaja lisada.}
+
+\item{gpkg_home}{path Salvestatavate GPKG faili asukoht.}
+}
+\value{
+list.
+}
+\description{
+GPKG layers list.
+}
+\examples{
+\dontrun{
+
+gpkg_home <- "/tmp"
+obj <- "marja"
+gpkg_andmebaasi_kihtide_nimekiri(obj = obj, gpkg_home = gpkg_home)
+}
+}
+\seealso{
+\code{\link[sf:st_read]{sf::st_read()}}, \code{\link[sf:st_write]{sf::write_sf()}},\code{\link[sf:st_transform]{sf::st_transform()}},\code{\link[=gpkg_piirkonnale_ruudustike_lisamine]{gpkg_piirkonnale_ruudustike_lisamine()}} ,\code{\link[=gpkg_piirkonnale_polygoonide_lisamine]{gpkg_piirkonnale_polygoonide_lisamine()}},\code{\link[=gpkg_sellest_alustame_gpkg_loomist]{gpkg_sellest_alustame_gpkg_loomist()}},\code{\link[=gpkg_piirkonnale_joonte_lisamine]{gpkg_piirkonnale_joonte_lisamine()}},\code{\link[=gpkg_piirkonnale_punktide_lisamine]{gpkg_piirkonnale_punktide_lisamine()}},\code{\link[=gpkg_andmebaasi_kihtide_nimekiri]{gpkg_andmebaasi_kihtide_nimekiri()}}
+}
+\keyword{GPKG}