db.R.example

# **********************************************************
# * CATEGORY  REVENUE & TAXATION
# * GROUP     MODELING
# * AUTHOR    LANCE HAYNIE <LHAYNIE@SCCITY.ORG>
# **********************************************************
# SMART
# Sustainable Management and Assessment for Responsible Taxation
# Copyright Santa Clara City
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.#
# You may obtain a copy of the License at
# http://www.apache.org/licenses/LICENSE-2.0
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
library(RMariaDB)
library(safer)

db_connect <- function() {
  .db_host <- decrypt_string("")
  .db_port <- decrypt_string("")
  .db_user <- decrypt_string("")
  .db_password <- decrypt_string("")
  .db_name <- decrypt_string("")
  
  connection <- RMariaDB::dbConnect(
    RMariaDB::MariaDB(),
    user = .db_user,
    password = .db_password,
    dbname = .db_name,
    host = .db_host,
    port = .db_port
  )
  
  if (RMariaDB::dbIsValid(connection)) {
    cat("Connected to the database successfully.\n")
  } else {
    cat("Connection failed.\n")
  }
  
  return(connection)
}