Driver/R: Implement suggestions by CodeRabbit

Author: amotl

docs/connect/index.md

@@ -106,7 +106,7 @@ CrateDB drivers and adapters for supported programming languages, frameworks, an
 :class-card: sd-pt-3
 :class-body: sd-fs-1
 :class-title: sd-fs-6
-{fab}`r`
+{fab}`r-project`
 ::::
 
 ::::{grid-item-card} Ruby

docs/connect/r.md

@@ -19,7 +19,7 @@ Connect to CrateDB from R applications and notebooks.
 # RPostgreSQL: R Interface to the 'PostgreSQL' Database System
 # https://cran.r-project.org/web/packages/RPostgreSQL/
 if (!require(RPostgreSQL)) {
-    install.packages("RPostgreSQL", repos="http://cran.us.r-project.org")
+    install.packages("RPostgreSQL", repos="https://cran.r-project.org")
 }
 stopifnot(require(RPostgreSQL))
 
@@ -32,8 +32,9 @@ con <- dbConnect(drv,
                  host = "localhost",
                  port = 5432,
                  user = "crate",
-                 dbname = "testdrive",
+                 dbname = "testdrive"
                  )
+on.exit(DBI::dbDisconnect(con), add = TRUE)
 
 # Invoke a basic select query.
 res <- dbGetQuery(con, "SELECT mountain, region, height FROM sys.summits ORDER BY height DESC LIMIT 3;")