Как настроить переадресацию портов SSH исключительно в R?

Хотя в настоящее время у меня есть обходной метод, я чувствую, что должен быть лучший способ сделать это, что-то вроде SSHTunnelForwarder в Python.
(здесь) https://sshtunnel.readthedocs.io/en/latest/

Мой текущий обходной путь:

1) Напишите файл /.ssh/config, в котором указаны параметры переадресации локального порта.

2) В окне терминала выполнить ssh -N location_of_db

3) В R выполните следующее:

library(RPostgres)

drv <- RPostgres::Postgres()

dbName <- "my_database"
host <- "127.0.0.1"
port <- '5439'
user <- "username"

db <- dbConnect(drv, dbname=dbName, host=host, port=port, user=user,
           password=readLines("/Users/me/keys/db_password.txt"))

Есть ли способ сделать это на языке R?

Примечание. Вместо 1) и 2) вы можете просто подключиться и настроить переадресацию локального порта с параметром -L в команде ssh (теперь в комментариях), но для этого необходимо найти свой ssh-agent для базы данных и предоставить другую информацию о безопасности. , настроенный системным администратором.