refactor: небольшие изменения
This commit is contained in:
21
app/logs.R
Normal file
21
app/logs.R
Normal file
@@ -0,0 +1,21 @@
|
||||
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) {
|
||||
|
||||
})
|
||||
}
|
||||
@@ -1,4 +1,3 @@
|
||||
|
||||
box::use(
|
||||
shiny[...],
|
||||
bslib[...]
|
||||
@@ -438,13 +437,11 @@ 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()
|
||||
|
||||
}
|
||||
|
||||
# при наличии таблицы - полу
|
||||
|
||||
Reference in New Issue
Block a user