php，带有连接到数据库的R脚本

Question

从php代码中，我运行r脚本，在那里我连接到数据库以获取数据：

con <- DBI::dbConnect(RMySQL::MySQL(),
host = "localhost",
user = "user",
dbname = "myDatabase",
password = "password")
data <- data.frame(tbl(con, "data"))

这个r脚本我每秒钟运行一次。问题是，每次我都必须再次连接到数据库，这会花费很多时间。有可能在我启动r脚本之前连接，或者以某种方式从php发送连接？

Answer 1

每1000次迭代后在R中连接如何？很明显，您可以根据自己的喜好增加/减少1000值。

if(!exists('i')) i <- 0
if(i %% 1000 == 0) {
con <- DBI::dbConnect(RMySQL::MySQL(),
host = "localhost",
user = "user",
dbname = "myDatabase",
password = "password")
}
i <- i + 1
data <- data.frame(tbl(con, "data"))