From b6968249ef84837ae423114c8e4245d6e6fe7159 Mon Sep 17 00:00:00 2001
From: Sigurd Hansen <sigurd.hansen@hnikt.no>
Date: Wed, 5 Jun 2024 11:06:21 +0200
Subject: [PATCH] Update dbConnection.R

Require SSL connection to mysql database, but do not verify certificate
---
 R/dbConnection.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/dbConnection.R b/R/dbConnection.R
index 7e087c41..f3159d4f 100644
--- a/R/dbConnection.R
+++ b/R/dbConnection.R
@@ -29,7 +29,9 @@ rapOpenDbConnection <- function(registryName, dbType = "mysql") {
       host = conf$host,
       user = conf$user,
       password = conf$pass,
-      bigint = "integer"
+      bigint = "integer",
+      client.flag = CLIENT_SSL,  # Request SSL connection
+      ssl.verify = FALSE         # Disable SSL verification
     )
     # ensure utf8 encoding
     invisible(DBI::dbExecute(con, "SET NAMES utf8;"))