Как проверить, сохраняется ли соединение с MySql через RMySql?

Question

Я не подключены к базе данных MySQL с помощью пакета RMySQL, используя это заявление:

con<-dbConnect(drv=RMySQL::MySQL(max.con=1,fetch.default.rec=500),host="host",dbname="dbname",password="psswd",user="user")) 

До сих пор никаких проблем. Когда я проверяю:

>class(con) 
[1] "MySQLConnection" 
attr(,"package") 
[1] "RMySQL" 

Через час я использовал следующее заявление:

dbGetQuery(conn=con,"show tables") 

и я получил ошибку:

Error in .local(dbObj, ...) : 
internal error in RS_DBI_getConnection: corrupt connection handle 

Однако, если я проверить это утверждение:

dbListConnections(drv=RMySQL::MySQL()) 

Он дает:

[[1]] 
<MySQLConnection:0,21> 

Когда я пытаюсь:

dbDisconnect(conn=con) 

я получаю ту же ошибку:

Error in .local(dbObj, ...) : 
internal error in RS_DBI_getConnection: corrupt connection handle 

Затем я удалил объект соединения:

rm(con) 

Когда я попытался подключиться снова используя dbConnect(), я получил эту ошибку:

con<-dbConnect(drv=RMySQL::MySQL(max.con=1,fetch.default.rec=500),host="host",dbname="dbname",password="psswd",user="user")) 
Error in .local(drv, ...): Cannot allocate a new connection: 1 connections already opened 

Я знаю, что вызов dbListConnections() возвращает пустой список, когда нет соединения с базой данных. Но в этом случае не возвращается пустой список.

ли повредиться соединение обрабатывать различные состояния соединения, чем отключенного состояния?

OR

Соединение имеет временные ограничения?

Каков наилучший подход, чтобы проверить, работает ли соединение с БД?

Answer 1

Возможно, вам необходимо закрыть соединение с dbDisconnect(con) вместо rm(con), чтобы освободить ручку внутреннего соединения и разрешить новое соединение. Последний удаляет только «указатель» на объект соединения (так что вы больше не можете получить доступ к этому объекту через con), но он все еще существует физически до garbage collection.

Вы можете проверить, действительно ли соединение действительное через dbIsValid(con), или используйте простой dbGetQuery(con, "SELECT 1"). Мне было бы интересно узнать, обнаружил ли первый из них разрыв в вашей системе, есть discussion on GitHub вокруг этой темы.