可能是由于安全性限制导致Shinyappsio无法正常连接MySQL数据库。可以尝试使用以下代码解决问题:
options(mysql = list(ssl = list( ca = system.file("ssl/cacert.pem", package = "RMySQL"), key = system.file("ssl/client-key.pem", package = "RMySQL"), cert = system.file("ssl/client-cert.pem", package = "RMySQL"))))
library(ssh)
key <- key_import(ssh_key_file, password = "") ssh <- ssh_connect(YOUR_SSH_SERVER_IP, "ssh_username", key = key)
tunnel <- ssh_tunnel(localhost = "127.0.0.1", localport = 3307, remotehost = "localhost", remoteport = 3306, ssh = ssh)
con <- DBI::dbConnect(RMySQL::MySQL(), dbname = "database_name", host = "127.0.0.1", port = 3307, user = "username", password = "password")
其中,YOUR_SSH_SERVER_IP应替换为您具有SSH访问权限的服务器的IP地址。注意,必须安装ssh和DBI包以运行此代码。
通过以上两种方法中的一种,您应该能够成功在Shinyappsio上连接MySQL数据库。