Module to display the user session info popup and to download a lockfile.
Examples
ui <- fluidPage(
ui_session_info("session_info")
)
server <- function(input, output, session) {
srv_session_info("session_info")
}
if (interactive()) {
shinyApp(ui, server)
}