130 lines
3.5 KiB
R
130 lines
3.5 KiB
R
box::use(
|
||
shiny[...],
|
||
bslib[...]
|
||
)
|
||
|
||
options(box.path = here::here())
|
||
box::use(
|
||
modules/db,
|
||
modules/utils,
|
||
app/forms
|
||
)
|
||
|
||
#' @export
|
||
server <- function(id, values, scheme, mhcs) {
|
||
|
||
ns <- NS(id)
|
||
|
||
moduleServer(id, function(input, output, session) {
|
||
|
||
# отображение DT-таблицы со списком последних действий
|
||
observeEvent(input$show_last_actions, {
|
||
|
||
con <- db$make_db_connection(scheme(),"show_last_actions")
|
||
on.exit(db$close_db_connection(con, "show_last_actions"), add = TRUE)
|
||
|
||
log_df <- DBI::dbReadTable(con, "log")
|
||
|
||
# новые записи вначале, формат даты с временем
|
||
log_df <- log_df |>
|
||
dplyr::arrange(dplyr::desc(date)) |>
|
||
dplyr::mutate(date = format(as.POSIXct(date), "%d.%m.%Y %H:%M"))
|
||
|
||
output$dt_logs <- DT::renderDataTable(
|
||
DT::datatable(
|
||
log_df,
|
||
# caption = 'Table 1: This is a simple caption for the table.',
|
||
rownames = FALSE,
|
||
colnames = logs_colnames,
|
||
extensions = c('KeyTable', "FixedColumns"),
|
||
# editable = 'cell',
|
||
class = 'cell-border stripe',
|
||
selection = "single",
|
||
options = list(
|
||
# dom = 'tipf',
|
||
scrollX = TRUE,
|
||
fixedColumns = list(leftColumns = 1),
|
||
keys = TRUE,
|
||
autoWidth = TRUE,
|
||
columnDefs = list(
|
||
list(width = "150px", targets = c(0,6)),
|
||
list(width = "110px", targets = c(1:4))
|
||
)
|
||
)
|
||
)
|
||
)
|
||
|
||
showModal(modalDialog(
|
||
DT::dataTableOutput(ns("dt_logs")),
|
||
size = "xl",
|
||
# footer = tagList(
|
||
# actionButton("nested_form_dt_save", "сохранить изменения")
|
||
# ),
|
||
easyClose = TRUE
|
||
))
|
||
|
||
})
|
||
|
||
# observe({
|
||
# print(input$dt_logs_rows_selected)
|
||
# })
|
||
|
||
output$display_log <- renderUI({
|
||
req(values$main_key)
|
||
|
||
# получение логов
|
||
con <- db$make_db_connection(scheme(),"display_log")
|
||
on.exit(db$close_db_connection(con, "display_log"), add = TRUE)
|
||
|
||
query <- sprintf("SELECT * FROM \"log\" WHERE key = '%s'", values$main_key)
|
||
log_df_for_id <- DBI::dbGetQuery(con, query)
|
||
|
||
if (nrow(log_df_for_id) > 0) {
|
||
|
||
lines <- log_df_for_id |>
|
||
dplyr::mutate(
|
||
date = as.POSIXct(date),
|
||
date = date + lubridate::hours(3), # fix datetime
|
||
date_day = as.Date(date)
|
||
) |>
|
||
dplyr::mutate(cons_actions = dplyr::consecutive_id(action, user)) |>
|
||
dplyr::mutate(n_actions = dplyr::row_number(), .by = c(cons_actions, user, action, date_day)) |>
|
||
dplyr::slice(which.max(n_actions), .by = c(user, action, date_day)) |>
|
||
dplyr::arrange(date) |>
|
||
dplyr::mutate(string_to_print = sprintf(
|
||
"<b>[%s %s]</b> %s: %s (%s)",
|
||
format(date, "%d.%m.%y"),
|
||
format(date, "%H:%M"),
|
||
user,
|
||
action,
|
||
n_actions
|
||
)) |>
|
||
dplyr::pull(string_to_print) |>
|
||
paste(collapse = "</br>")
|
||
|
||
} else {
|
||
lines <- ""
|
||
}
|
||
|
||
div(
|
||
strong("Последние действия:"),
|
||
br(),
|
||
HTML(lines),
|
||
style = "font-size:10px;"
|
||
)
|
||
|
||
})
|
||
|
||
})
|
||
}
|
||
|
||
logs_colnames <- c(
|
||
"время" = "date",
|
||
"пользователь" = "user",
|
||
"приложение" = "app_id",
|
||
"версия" = "app_ver",
|
||
"ip" = "remote_addr",
|
||
"ID записи" = "key",
|
||
"действие" = "action"
|
||
)
|