# keyfile <- ssh::ssh_key_info()
ssh.connect <- NULL
ssh.connect <- ssh::ssh_connect(
host="username@000.00.000.00:00",
passwd = "XXXXXXXXXXXXXXX")
# print(ssh.connect)
ssh::ssh_disconnect(ssh.connect)