if (requireNamespace("RSQLite") && requireNamespace("pool")){
pool <- pool::dbPool(
drv = RSQLite::SQLite(),
dbname = ":memory:"
)
app <- AppenderPool$new(
pool = pool,
table = "log"
)
lg <- lgr::get_logger("test/pool")$
add_appender(app, "db")$
set_propagate(FALSE)
lg$info("test")
print(lg$appenders[[1]]$data)
invisible(lg$config(NULL)) # cleanup
pool::poolClose(pool)
}
Run the code above in your browser using DataLab