mysql 10分钟内的数据库,在Shiny应用程序中，如果发生任何更改，如何每10分钟从MySQL数据库刷新一次数据...

I've made dashboard using shiny, shinydashboard and RMySQL package.

Following is what I wrote in order to refresh data every 10 minutes if any change occured.

In global.R

con = dbConnect(MySQL(), host, user, pass, db)

check_func

get_func

In server.R

function(input, output, session) {

# check every 10 minutes for any change

data

session$onSessionEnded(function() {dbDisconnect(con)})

However, above code infrequently generates corrupt connection handle error from check_func.

Warning: Error in .local: internal error in RS_DBI_getConnection: corrupt connection handle

Should I put dbConnect code inside server function?

Any better ideas?

解决方案This adds a new level of abstraction when connecting to a database: instead of directly fetching a connection from the database, you will create an object (called a pool) with a reference to that database. The pool holds a number of connections to the database. ... Each time you make a query, you are querying the pool, rather than the database. ... You never have to create or close connections directly: the pool knows when it should grow, shrink or keep steady.