R/AVSDevR.ShinyApplication
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed db client references in sessionLogger

Browse Source
This commit is contained in:
Craig Williams
2026-02-05 10:56:16 +00:00
parent c58830441b
commit ab9172f88d
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/sessionLogger.R
View File

@@ -99,7 +99,7 @@ SessionLoggerDB <- R6::R6Class(
inherit = SessionLogger, inherit = SessionLogger,
public = list( public = list(
initialize = function(db_client) { initialize = function(db_client) {
if (is.null(conn) || !R6::is.R6(conn) || !inherits(conn, "DBClient")) { if (is.null(db_client) || !inherits(db_client, "DBClient")) {
stop("DBClient instance required!") stop("DBClient instance required!")
} }
private$db_client <- db_client private$db_client <- db_client
@@ -111,15 +111,15 @@ SessionLoggerDB <- R6::R6Class(
logSessionEvent = function( logSessionEvent = function(
event, session = shiny::getDefaultReactiveDomain() event, session = shiny::getDefaultReactiveDomain()
) { ) {
db_client$connect() private$db_client$getConnection()$connect()
on.exit({ on.exit({
db_client$disconnect() private$db_client$getConnection()$disconnect()
}) })
event_row <- tibble::tibble( event_row <- tibble::tibble(
app_name = basename(getwd()), app_name = basename(getwd()),
app_pid = Sys.getpid(), app_pid = Sys.getpid(),
client_ip = getClientIp(session), client_ip = private$getClientIp(session),
user_id = session$userData$user_id, user_id = session$userData$user_id,
session_token = session$token, session_token = session$token,
!!event := lubridate::now() !!event := lubridate::now()