我们能否在R shiny中跟踪系统日志记录和系统注销时间

library(shiny)
library(logging)

# 设置系统日志记录
basicConfig(level = "INFO", filename = "system.log")

# 定义用户登录函数
user_login <- function(username) {
  # 记录登录时间和用户信息
  info(paste("User", username, "logged in at", Sys.time()))
}

# 定义用户注销函数
user_logout <- function(username) {
  # 记录注销时间
  info(paste("User", username, "logged out at", Sys.time()))
}

# 定义Shiny应用程序
ui <- fluidPage(
  textOutput("logout_time")
)

server <- function(input, output, session) {
  # 用户登录时调用user_login函数
  observeEvent(session$user, {
    user_login(session$user)
  })
  
  # 用户注销时调用user_logout函数
  observeEvent(session$session_destroyed, {
    user_logout(session$user)
  })
  
  # 显示系统注销时间
  output$logout_time <- renderText({
    paste("Logout time:", Sys.time())
  })
}

shinyApp(ui, server)