connection <- connect(dbms = "sqlite", server = ":memory:")
logFile <- tempfile(fileext = ".log")
ParallelLogger::addDefaultFileLogger(fileName = logFile, name = "MY_LOGGER")
options(LOG_DATABASECONNECTOR_SQL = TRUE)
executeSql(connection, "CREATE TABLE test (x INT);")
querySql(connection, "SELECT * FROM test;")
extractQueryTimes(logFile)
ParallelLogger::unregisterLogger("MY_LOGGER")
unlink(logFile)
disconnect(connection)
Run the code above in your browser using DataLab