```r
# srid<-27700
# db<-"gis_course"
# flnm<-flnms[1]
# tabnm<-"ancient_woodland"
# 
# 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<-"counties"
# 
# 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<-"local_reserves"
# 
# command3 <- 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[4]
# tabnm<-"ph_v2_1"
# 
# command4 <- 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[5]
# tabnm<-"sssi"
# 
# command5 <- 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)
# system(command4)
# system(command5)
```