inst/extR/build_id_tables.R

In lawinslow/hydrolinks: Hydrologic Network Linking Data and Tools

library(sf)
library(dplyr)

build_id_table = function(bbdf, layer, file_name, index_columns){
  ids = list()
  
  for(i in 1:nrow(bbdf)){
    shape = st_read(paste0(bbdf$file[i], layer))
    st_geometry(shape) = NULL
    ids[[i]] = shape
  }
  id_lookup = bind_rows(ids)
  db = src_sqlite(file_name, create = TRUE)
  copy_to(db, id_lookup, overwrite = TRUE, temporary = FALSE, indexes = index_columns)
}