如何从R脚本中的配置文件中获取参数

# 配置文件示例
database_host = "localhost"
database_port = 3306
database_username = "admin"
database_password = "password"

config_file <- "config.conf"
config <- readLines(config_file)

params <- list()
for (line in config) {
  if (grepl("=", line)) {
    key <- sub("^(.*?)\\s*=.*$", "\\1", line)
    value <- sub("^.*?\\s*=\\s*(.*)$", "\\1", line)
    params[[key]] <- value
  }
}

library(DBI)
conn <- dbConnect(RMySQL::MySQL(), 
                  host = params$database_host,
                  port = params$database_port,
                  user = params$database_username,
                  password = params$database_password)