```r
rm(list=ls())
require(RPostgreSQL)
require(rpostgis)
require(sf)
require(tmap)
require(mapview)
conn <- dbConnect("PostgreSQL", host = "postgis",
  dbname = "gis_course" ,user = "gis_course", password = "gis_course123")
```