RMySQL: chiusura di una connessione senza handle

Question

Sto sperimentando con RMySQL e ho accidentalmente creato una connessione senza handle.

dbConnect(MySQL(), user = "foo", password = "bar") 
connLocalDB = dbConnect(MySQL(), user = "foo", password = "bar") 

Si noti che il ritorno della prima chiamata non è assegnato a nulla. Ora, quando faccio una dbListConnections(MySQL()) vedo due connessioni:

> dbListConnections(MySQL()) 
[[1]] 
<MySQLConnection:0,0> 

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

Allora ho provato questo:

> dbDisconnect(dbListConnections(MySQL())[[1]]) 
[1] TRUE 

ma, poi, ho ottenuto questo:

> dbListConnections(MySQL()) 
[[1]] 
Error in .local(dbObj, ...) : 
    internal error in RS_DBI_getConnection: corrupt connection handle 

come terminare in modo sicuro una connessione a cui non è assegnato un handle?

Answer 1

generale per la creazione di una connessione, ottenere i dati di una query e quindi chiudere la connessione che uso la seguente funzione:

getDataSql <- function(query) { 
    con = dbConnect(RMySQL::MySQL(), dbname = "dbname", host = "host", user = "username", password = "pasword", port = "port") 
    result <- dbGetQuery(con, query) 
    dbDisconnect(con) 
    result 
}