update background_layers.gpkg streams and crossings from shared db

gistfile1.txt

query <- "SELECT *
   FROM bcfishpass.streams
   WHERE watershed_group_code IN ('ADMS', 'MORK', 'UFRA', 'CANO', 'LNTH', 'UNTH', 'MURT', 'CLWR', 'CLRH', 'REVL')"


##import and grab the coordinates - this is already done
sf::st_read(conn, query =  query) %>% st_write('background_layers.gpkg', delete_layer =TRUE, layer = 'streams')

query <- "SELECT *
   FROM bcfishpass.crossings
   WHERE watershed_group_code IN ('ADMS', 'MORK', 'UFRA', 'CANO', 'LNTH', 'UNTH', 'MURT', 'CLWR', 'CLRH', 'REVL')"


##import and grab the coordinates - this is already done
sf::st_read(conn, query =  query) %>% st_write('background_layers.gpkg', delete_layer =TRUE, layer = 'crossings')