refactor: вся основа кода в отдельной папке
This commit is contained in:
34
R/app/forms.R
Normal file
34
R/app/forms.R
Normal file
@@ -0,0 +1,34 @@
|
||||
options(box.path = here::here())
|
||||
box::use(
|
||||
R/modules/utils,
|
||||
)
|
||||
|
||||
#' @export
|
||||
load_data_to_form <- function(
|
||||
df,
|
||||
table_name = "main",
|
||||
mhcs,
|
||||
ns
|
||||
) {
|
||||
|
||||
input_types <- unname(mhcs()$get_id_type_list(table_name))
|
||||
input_ids <- names(mhcs()$get_id_type_list(table_name))
|
||||
if (missing(ns)) ns <- NULL
|
||||
|
||||
# rewrite input forms
|
||||
purrr::walk2(
|
||||
.x = input_types,
|
||||
.y = input_ids,
|
||||
.f = \(x_type, x_id) {
|
||||
|
||||
# updating forms with loaded data
|
||||
utils$update_forms_with_data(
|
||||
form_id = x_id,
|
||||
form_type = x_type,
|
||||
value = df[[x_id]],
|
||||
scheme = mhcs()$get_scheme(table_name),
|
||||
ns = ns
|
||||
)
|
||||
}
|
||||
)
|
||||
}
|
||||
129
R/app/logs.R
Normal file
129
R/app/logs.R
Normal file
@@ -0,0 +1,129 @@
|
||||
box::use(
|
||||
shiny[...],
|
||||
bslib[...]
|
||||
)
|
||||
|
||||
options(box.path = here::here())
|
||||
box::use(
|
||||
R/modules/db,
|
||||
R/modules/utils,
|
||||
R/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"
|
||||
)
|
||||
474
R/app/tasks.R
Normal file
474
R/app/tasks.R
Normal file
@@ -0,0 +1,474 @@
|
||||
box::use(
|
||||
shiny[...],
|
||||
bslib[...]
|
||||
)
|
||||
|
||||
options(box.path = here::here())
|
||||
box::use(
|
||||
R/modules/db,
|
||||
R/modules/utils,
|
||||
R/app/forms
|
||||
)
|
||||
|
||||
#' @export
|
||||
server <- function(id, values, scheme, mhcs) {
|
||||
|
||||
ns <- NS(id)
|
||||
|
||||
moduleServer(id, function(input, output, session) {
|
||||
|
||||
# BOOKMARKS SETUP ========================
|
||||
# observe({
|
||||
# # print(values$current_user)
|
||||
# })
|
||||
|
||||
# functions -------------------
|
||||
## new tasks ----------------
|
||||
get_default_task <- function() {
|
||||
|
||||
tibble::tibble(
|
||||
task_id = paste0(format(Sys.time(), "%Y%m%d%H%M%S"), "_", values$main_key),
|
||||
task_main_key = values$main_key,
|
||||
task_status = "active",
|
||||
task_title = "НОВАЯ ЗАДАЧА",
|
||||
task_description = "",
|
||||
task_due_date = NA,
|
||||
task_user_created = values$current_user,
|
||||
task_datetime_created = Sys.time(),
|
||||
task_user_last_updated = NA,
|
||||
task_datetime_last_updated = NA,
|
||||
task_user_completed = NA,
|
||||
task_datetime_completed = NA
|
||||
)
|
||||
}
|
||||
|
||||
# logic ---------------------
|
||||
## modal fun -----
|
||||
show_modal_for_tasks <- function() {
|
||||
|
||||
if (!is.null(values$tasks_data)) {
|
||||
|
||||
tasks_selector <- values$tasks_data |>
|
||||
dplyr::filter(task_status == "active") |>
|
||||
dplyr::pull(task_id)
|
||||
|
||||
tasks_selector <- unique(c(values$tasks_id, tasks_selector))
|
||||
tasks_selector <- sort(tasks_selector)
|
||||
|
||||
if (length(values$tasks_id) == 0) {
|
||||
values$tasks_id <- if (length(tasks_selector) == 0) NULL else tasks_selector[[1]]
|
||||
}
|
||||
|
||||
} else {
|
||||
|
||||
tasks_selector <- NULL
|
||||
|
||||
}
|
||||
|
||||
# ui --------------------
|
||||
# очень большой костыль
|
||||
subroup_scheme <- mhcs()$get_scheme("tasks") |>
|
||||
dplyr::filter(form_id != "dummy")
|
||||
|
||||
tab <- if (length(tasks_selector) > 0) {
|
||||
bslib::nav_panel(
|
||||
title = "no name provided",
|
||||
purrr::pmap(
|
||||
.l = dplyr::distinct(subroup_scheme, form_id, form_label, form_type),
|
||||
.f = utils$render_forms,
|
||||
main_scheme = subroup_scheme,
|
||||
ns = ns
|
||||
)
|
||||
)
|
||||
} else {
|
||||
bslib::nav_panel("", div("Нет доступных записей.", br(), "Необходимо создать новую запись."))
|
||||
}
|
||||
|
||||
ui <- layout_sidebar(
|
||||
sidebar = tagList(
|
||||
selectizeInput(ns("tasks_id_selector"), label = "ID задачи:", choices = tasks_selector, selected = values$tasks_id),
|
||||
actionButton(ns("tasks_create_new_task"), "Новая задача", icon("plus")),
|
||||
actionButton(ns("tasks_add_autoreview"), "Новая авто-задача (тест)", icon("calendar")),
|
||||
actionButton(ns("tasks_DT_VIEW"), "DT", icon("table"))
|
||||
),
|
||||
tab
|
||||
)
|
||||
|
||||
showModal(modalDialog(
|
||||
ui,
|
||||
size = "l",
|
||||
footer = tagList(
|
||||
actionButton(ns("tasks_saving_button"), "Сохранить изменения", icon("floppy-disk"))
|
||||
),
|
||||
easyClose = TRUE
|
||||
))
|
||||
}
|
||||
|
||||
## отображение окна -----------------
|
||||
observeEvent(input$display_task_modal, {
|
||||
|
||||
if (is.null(values$main_key)) {
|
||||
showNotification("необходимо выбрать запись", type = "error")
|
||||
return()
|
||||
}
|
||||
|
||||
con <- db$make_db_connection(scheme(),"display_task_modal")
|
||||
on.exit(db$close_db_connection(con, "display_task_modal"), add = TRUE)
|
||||
|
||||
values$tasks_data <- if ("tasks" %in% DBI::dbListTables(con)) {
|
||||
|
||||
DBI::dbGetQuery(con, glue::glue("SELECT * FROM tasks WHERE task_main_key = '{values$main_key}'")) |>
|
||||
dplyr::mutate(dplyr::across(c("task_datetime_created", "task_datetime_last_updated", "task_datetime_completed"), as.POSIXct)) |>
|
||||
dplyr::mutate(dplyr::across(c("task_due_date"), as.Date))
|
||||
|
||||
} else {
|
||||
|
||||
NULL
|
||||
|
||||
}
|
||||
|
||||
values$tasks_id <- NULL
|
||||
show_modal_for_tasks()
|
||||
|
||||
})
|
||||
|
||||
## изменение выбранной задачи -------
|
||||
observeEvent(input$tasks_id_selector, {
|
||||
req(input$tasks_id_selector)
|
||||
req(values$tasks_id)
|
||||
|
||||
# выбранный ключ в форме - перемещаем в RV
|
||||
values$tasks_id <- input$tasks_id_selector
|
||||
|
||||
})
|
||||
|
||||
## обновление формы при измененнии id ключа ------
|
||||
observeEvent(values$tasks_id, {
|
||||
|
||||
df <- values$tasks_data |>
|
||||
dplyr::filter(task_id == values$tasks_id)
|
||||
|
||||
forms$load_data_to_form(
|
||||
df = df,
|
||||
table_name = "tasks",
|
||||
mhcs
|
||||
# ns = ns
|
||||
)
|
||||
})
|
||||
|
||||
## saving button ------------------------------
|
||||
observeEvent(input$tasks_saving_button, {
|
||||
|
||||
con <- db$make_db_connection(scheme(),"tasks_saving_button")
|
||||
on.exit(db$close_db_connection(con, "tasks_saving_button"), add = TRUE)
|
||||
|
||||
if (!values$main_key %in% db$get_keys_from_table("main", mhcs(), con)) {
|
||||
showNotification("Невозможно создать задачу для данного ID (нет в базе)", type = "error")
|
||||
return()
|
||||
}
|
||||
|
||||
id_and_types_list <- mhcs()$get_id_type_list("tasks")
|
||||
input_types <- unname(id_and_types_list)
|
||||
input_ids <- names(id_and_types_list)
|
||||
|
||||
exported_values <- purrr::map2(
|
||||
.x = input_ids,
|
||||
.y = input_types,
|
||||
.f = \(x_id, x_type) {
|
||||
|
||||
input_d <- input[[x_id]]
|
||||
|
||||
# return empty if 0 element
|
||||
if (length(input_d) == 0) {
|
||||
return(utils$get_empty_data(x_type))
|
||||
} else {
|
||||
input_d
|
||||
}
|
||||
}
|
||||
)
|
||||
|
||||
exported_df <- stats::setNames(exported_values, input_ids) |>
|
||||
dplyr::as_tibble()
|
||||
|
||||
df <- values$tasks_data
|
||||
|
||||
df[df$task_id == values$tasks_id,]$task_status <- exported_df$task_status
|
||||
df[df$task_id == values$tasks_id,]$task_title <- exported_df$task_title
|
||||
df[df$task_id == values$tasks_id,]$task_description <- exported_df$task_description
|
||||
df[df$task_id == values$tasks_id,]$task_due_date <- exported_df$task_due_date
|
||||
df[df$task_id == values$tasks_id,]$task_user_last_updated <- values$current_user
|
||||
df[df$task_id == values$tasks_id,]$task_datetime_last_updated <- Sys.time()
|
||||
|
||||
if (exported_df$task_status == "completed") {
|
||||
df[df$task_id == values$tasks_id,]$task_user_completed <- values$current_user
|
||||
df[df$task_id == values$tasks_id,]$task_datetime_completed <- Sys.time()
|
||||
}
|
||||
|
||||
values$tasks_data <- df
|
||||
|
||||
if ("tasks" %in% DBI::dbListTables(con)) {
|
||||
query <- glue::glue("
|
||||
DELETE
|
||||
FROM tasks
|
||||
WHERE task_main_key = '{values$main_key}'
|
||||
")
|
||||
DBI::dbExecute(con, query)
|
||||
}
|
||||
|
||||
DBI::dbWriteTable(con, "tasks", df, append = TRUE)
|
||||
|
||||
update_task_button_count(con, values)
|
||||
showNotification("Задача успешно создана/обновлена", type = "message")
|
||||
|
||||
tasks_selector <- values$tasks_data |>
|
||||
dplyr::filter(task_status != "completed") |>
|
||||
dplyr::pull(task_id)
|
||||
|
||||
selector <- ifelse(!values$tasks_id %in% tasks_selector, tasks_selector[1], values$tasks_id)
|
||||
|
||||
updateSelectInput(inputId = "tasks_id_selector", choices = tasks_selector, selected = selector)
|
||||
|
||||
})
|
||||
|
||||
## show DT --------------------------
|
||||
observeEvent(input$tasks_DT_VIEW, {
|
||||
|
||||
rename_cols <- tasks_colnames[tasks_colnames %in% colnames(values$tasks_data)]
|
||||
|
||||
date_cols <- c("task_datetime_created", "task_datetime_completed", "task_datetime_last_updated", "task_due_date")
|
||||
date_cols <- which(colnames(values$tasks_data) %in% date_cols)
|
||||
|
||||
output$dt_tasks <- DT::renderDataTable(
|
||||
DT::datatable(
|
||||
values$tasks_data,
|
||||
caption = 'Table 1: This is a simple caption for the table.',
|
||||
rownames = FALSE,
|
||||
colnames = rename_cols,
|
||||
extensions = c('KeyTable', "FixedColumns"),
|
||||
# editable = 'cell',
|
||||
class = 'cell-border stripe',
|
||||
selection = "none",
|
||||
options = list(
|
||||
dom = 'tip',
|
||||
scrollX = TRUE,
|
||||
fixedColumns = list(leftColumns = 1),
|
||||
keys = TRUE,
|
||||
autoWidth = TRUE,
|
||||
columnDefs = list(
|
||||
list(
|
||||
targets = 3:4,
|
||||
width = '200px',
|
||||
render = htmlwidgets::JS(
|
||||
"function(data, type, row, meta) {",
|
||||
"return type === 'display' && data.length > 20 ?",
|
||||
"'<span title=\"' + data + '\">' + data.substr(0, 20) + '...</span>' : data;",
|
||||
"}")
|
||||
)
|
||||
)
|
||||
)
|
||||
) |>
|
||||
DT::formatDate(date_cols, "toLocaleDateString", params = list('ru-RU'))
|
||||
)
|
||||
|
||||
showModal(modalDialog(
|
||||
DT::dataTableOutput(ns("dt_tasks")),
|
||||
size = "xl",
|
||||
# footer = tagList(
|
||||
# actionButton("nested_form_dt_save", "сохранить изменения")
|
||||
# ),
|
||||
easyClose = TRUE
|
||||
))
|
||||
|
||||
})
|
||||
|
||||
## создание новой задачи -------------
|
||||
observeEvent(input$tasks_create_new_task, {
|
||||
new_task <- get_default_task()
|
||||
|
||||
values$tasks_data <- rbind(values$tasks_data, new_task)
|
||||
values$tasks_id <- new_task$task_id
|
||||
|
||||
tasks_selector <- values$tasks_data |>
|
||||
dplyr::filter(task_status != "completed") |>
|
||||
dplyr::pull(task_id)
|
||||
|
||||
updateSelectInput(inputId = "tasks_id_selector", choices = tasks_selector, selected = values$tasks_id)
|
||||
removeModal()
|
||||
show_modal_for_tasks()
|
||||
})
|
||||
|
||||
## создание новой авто-задачи -------------
|
||||
observeEvent(input$tasks_add_autoreview, {
|
||||
new_task <- get_default_task()
|
||||
|
||||
new_task$task_title <- "autoreview"
|
||||
new_task$task_description <- "напоминание об актуализации данных"
|
||||
new_task$task_due_date <- Sys.Date() + 28
|
||||
|
||||
values$tasks_data <- rbind(values$tasks_data, new_task)
|
||||
values$tasks_id <- new_task$task_id
|
||||
|
||||
tasks_selector <- values$tasks_data |>
|
||||
dplyr::filter(task_status != "completed") |>
|
||||
dplyr::pull(task_id)
|
||||
|
||||
updateSelectInput(inputId = "tasks_id_selector", choices = tasks_selector, selected = values$tasks_id)
|
||||
removeModal()
|
||||
show_modal_for_tasks()
|
||||
})
|
||||
|
||||
# review задач ----------------
|
||||
### все активные задачи ------------
|
||||
observeEvent(input$show_dt_all, {
|
||||
|
||||
con <- db$make_db_connection(scheme(),"display_task_modal")
|
||||
on.exit(db$close_db_connection(con, "display_task_modal"), add = TRUE)
|
||||
|
||||
values$tasks_data <- DBI::dbGetQuery(con, glue::glue("SELECT * FROM tasks WHERE task_status = 'active'")) |>
|
||||
dplyr::mutate(dplyr::across(c("task_datetime_created", "task_datetime_last_updated", "task_datetime_completed"), as.POSIXct)) |>
|
||||
dplyr::mutate(dplyr::across(c("task_due_date"), as.Date))
|
||||
|
||||
display_tasks_dt_review()
|
||||
})
|
||||
|
||||
### задачи для текущего дня ------------
|
||||
observeEvent(input$show_dt_today, {
|
||||
|
||||
con <- db$make_db_connection(scheme(),"display_task_modal")
|
||||
on.exit(db$close_db_connection(con, "display_task_modal"), add = TRUE)
|
||||
|
||||
values$tasks_data <- DBI::dbGetQuery(con, glue::glue("SELECT * FROM tasks WHERE task_status = 'active' AND task_due_date = {as.integer(Sys.Date())}")) |>
|
||||
dplyr::mutate(dplyr::across(c("task_datetime_created", "task_datetime_last_updated", "task_datetime_completed"), as.POSIXct)) |>
|
||||
dplyr::mutate(dplyr::across(c("task_due_date"), as.Date))
|
||||
|
||||
display_tasks_dt_review()
|
||||
})
|
||||
|
||||
### просроченные ------------
|
||||
observeEvent(input$show_dt_overdue, {
|
||||
|
||||
con <- db$make_db_connection(scheme(),"display_task_modal")
|
||||
on.exit(db$close_db_connection(con, "display_task_modal"), add = TRUE)
|
||||
|
||||
values$tasks_data <- DBI::dbGetQuery(con, glue::glue("SELECT * FROM tasks WHERE task_status = 'active' AND task_due_date < {as.integer(Sys.Date())}")) |>
|
||||
dplyr::mutate(dplyr::across(c("task_datetime_created", "task_datetime_last_updated", "task_datetime_completed"), as.POSIXct)) |>
|
||||
dplyr::mutate(dplyr::across(c("task_due_date"), as.Date))
|
||||
|
||||
display_tasks_dt_review()
|
||||
})
|
||||
|
||||
### modal -----
|
||||
display_tasks_dt_review <- function() {
|
||||
|
||||
values$tasks_data <- values$tasks_data |>
|
||||
dplyr::select(task_id:task_datetime_last_updated) |>
|
||||
dplyr::arrange(task_due_date)
|
||||
|
||||
rename_cols <- tasks_colnames[tasks_colnames %in% colnames(values$tasks_data)]
|
||||
|
||||
date_cols <- c("task_datetime_created", "task_datetime_completed", "task_datetime_last_updated", "task_due_date")
|
||||
date_cols <- which(colnames(values$tasks_data) %in% date_cols)
|
||||
|
||||
output$dt_todays_tasks <- DT::renderDataTable(
|
||||
DT::datatable(
|
||||
values$tasks_data,
|
||||
caption = 'Table 1: This is a simple caption for the table.',
|
||||
rownames = FALSE,
|
||||
colnames = rename_cols,
|
||||
extensions = c("FixedColumns"),
|
||||
# editable = 'cell',
|
||||
class = 'cell-border stripe',
|
||||
selection = "single",
|
||||
options = list(
|
||||
dom = 'tip',
|
||||
scrollX = TRUE,
|
||||
fixedColumns = list(leftColumns = 1),
|
||||
autoWidth = TRUE,
|
||||
columnDefs = list(
|
||||
list(
|
||||
targets = 3:4,
|
||||
width = '200px',
|
||||
render = htmlwidgets::JS(
|
||||
"function(data, type, row, meta) {",
|
||||
"return type === 'display' && data.length > 20 ?",
|
||||
"'<span title=\"' + data + '\">' + data.substr(0, 20) + '...</span>' : data;",
|
||||
"}")
|
||||
)
|
||||
)
|
||||
)
|
||||
) |>
|
||||
DT::formatDate(date_cols, "toLocaleDateString", params = list('ru-RU'))
|
||||
)
|
||||
|
||||
showModal(modalDialog(
|
||||
DT::dataTableOutput(ns("dt_todays_tasks")),
|
||||
size = "xl",
|
||||
footer = tagList(
|
||||
actionButton(ns("jump_to_main_key"), "перейти к id", icon("right-to-bracket"))
|
||||
),
|
||||
easyClose = TRUE
|
||||
))
|
||||
|
||||
}
|
||||
|
||||
### jump to main_key ---------
|
||||
observeEvent(input$jump_to_main_key, {
|
||||
|
||||
if (is.null(input$dt_todays_tasks_rows_selected)) {
|
||||
showNotification("необходимо выбрать задачу", type = "error")
|
||||
} else {
|
||||
|
||||
# get key
|
||||
main_key_to_jump <- values$tasks_data[input$dt_todays_tasks_rows_selected,]$task_main_key
|
||||
values$main_key <- main_key_to_jump
|
||||
|
||||
removeModal()
|
||||
|
||||
}
|
||||
})
|
||||
|
||||
})
|
||||
}
|
||||
|
||||
#' @export
|
||||
update_task_button_count <- function(con, values, ns) {
|
||||
|
||||
inputID <- "display_task_modal"
|
||||
if (!missing(ns)) inputID <- ns(inputID)
|
||||
|
||||
# если ключ не определен - выход из функции
|
||||
if (is.null(values$main_key)) {
|
||||
|
||||
updateActionButton(inputId = inputID, label = "Задачи")
|
||||
return()
|
||||
}
|
||||
|
||||
# при наличии таблицы - полу
|
||||
if ("tasks" %in% DBI::dbListTables(con)) {
|
||||
|
||||
tasks_num <- DBI::dbGetQuery(con, glue::glue("SELECT COUNT ('task_id') FROM tasks WHERE task_main_key = '{values$main_key}' AND task_status = 'active'")) |>
|
||||
dplyr::pull()
|
||||
|
||||
if (tasks_num > 0) {
|
||||
updateActionButton(inputId = inputID, label = paste("активных задач:", tasks_num))
|
||||
} else {
|
||||
updateActionButton(inputId = inputID, label = "Задачи: нет активных")
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
tasks_colnames <- c(
|
||||
"id задачи" = "task_id",
|
||||
"id записи" = "task_main_key",
|
||||
"статус" = "task_status",
|
||||
"задача" = "task_title",
|
||||
"описание" = "task_description",
|
||||
"срок выполнения" = "task_due_date",
|
||||
"создана" = "task_user_created",
|
||||
"дата создания" = "task_datetime_created",
|
||||
"обновлено" = "task_user_last_updated",
|
||||
"дата обновления" = "task_datetime_last_updated",
|
||||
"завершено" = "task_user_completed",
|
||||
"дата выполнения" = "task_datetime_completed"
|
||||
)
|
||||
Reference in New Issue
Block a user