```r
# flnms<-paste("big_data/admin", dir("big_data/admin",pattern="shp"),sep="/")
# flnms
# flnm<-flnms[1]
# tabnm<-"counties"
# command1 <- sprintf("PGPASSWORD=!SECRET! shp2pgsql -s %s -d -I %s  %s | PGPASSWORD=!SECRET! psql -h postgis -U !SECRET! -d %s",srid,flnm,tabnm,db)
# flnm<-flnms[2]
# tabnm<-"local_authorities"
# command2 <- sprintf("PGPASSWORD=!SECRET! shp2pgsql -s %s -d -I %s  %s | PGPASSWORD=!SECRET! psql -h postgis -U !SECRET! -d %s",srid,flnm,tabnm,db)
# flnm<-flnms[3]
# tabnm<-"parishes"
# command3 <- sprintf("PGPASSWORD=!SECRET! shp2pgsql -s %s -d -I %s  %s | PGPASSWORD=!SECRET! psql -h postgis -U !SECRET! -d %s",srid,flnm,tabnm,db)
# 
# 
# system(command1)
# system(command2)
# system(command3)
```