barest of bare bones #4

hypertidy · May 10, 2018 · 33df36a · 33df36a
1 parent c3a2d6c
commit 33df36a
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/read.R b/R/read.R
@@ -57,3 +57,9 @@ vapour_read_geometry_text <- function(dsource, layer = 0L, sql = "", textformat
   sql <- asterisk_select(sql)
   vapour_read_feature_what(dsource = dsource, layer = layer, sql = sql, what = "text", textformat = textformat)
 }
+
+
+vapour_read_names <- function(dsource, layer = 0L, sql = "", ...) {
+  layers <- vapour_layer_names(dsource)
+  vapour_read_attributes(dsource, layer = layer, sql = sprintf("SELECT FID FROM %s", layers[layer + 1]))[["FID"]]
+}