```r
# conn <- dbConnect("PostgreSQL", host = "postgis",
#   dbname = "gis_course" ,user = "docker", password = "docker")
# 
# dbSendQuery(conn,"GRANT ALL PRIVILEGES on ALL TABLES IN SCHEMA PUBLIC TO gis_course")
# 
# dbSendQuery(conn,"GRANT ALL PRIVILEGES on ALL TABLES IN SCHEMA nat_england TO gis_course")
# 
# dbDisconnect(conn)
```