App发布到Shinyappsio无法连接MySQL

可能是由于安全性限制导致Shinyappsio无法正常连接MySQL数据库。可以尝试使用以下代码解决问题：

1. 首先，在Shiny应用程序的server.R或global.R文件中添加以下代码，以确保在Shinyappsio上使用RMySQL包连接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"))))

2. 如果上述方法无法解决问题，则可能需要使用ssh隧道将Shinyappsio与MySQL数据库连接起来。可以使用以下代码创建ssh隧道：

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数据库。