library(arrow)

feature_codes <- readxl::read_excel("ns-water/nshn_v2/NSHN_FEATURECODES.xls")
arrow::write_feather(
  feature_codes,
  "ns-water/ns-water-feature_codes.arrow",
  compression = "uncompressed"
)

file.copy(
  "ns-water/nshn_v2/NSHN Attribute_Specs.pdf",
  "ns-water/ns-water-attribute_specs.pdf"
)

list(
  group = "ns-water",
  format = c("fgb/zip", "arrow", "arrow/interleaved", "arrow/wkb"),
  file_location = "release",
  files = list.files("ns-water", "\\.fgb$") |>
    stringr::str_remove("ns-water-") |>
    stringr::str_remove(".fgb") |>
    lapply(function(x) list(name = x))
) |>
  yaml::write_yaml("ns-water/manifest.yaml")