madeliri/shiny_form
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix validation errors

Browse Source
This commit is contained in:
Vladislav Dolgov
2025-03-18 12:50:56 +03:00
parent d93e4d163f
commit 9d3a76b1f5
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@@ -15,6 +15,7 @@
- fixed not erasing inputs while loading empty values (with checkboxes, radiobuttons); - fixed not erasing inputs while loading empty values (with checkboxes, radiobuttons);
- +number input validation - +number input validation
- fix validation errors (2025-03-18);
##### changes ##### changes
- redesign work with db (open connection only when action performed) (2024-03-03); - redesign work with db (open connection only when action performed) (2024-03-03);

6
app.R
View File

@@ -38,7 +38,7 @@ SCHEME_MAIN <- readxl::read_xlsx(FILE_SCHEME) %>%
# fill NA down # fill NA down
fill(c(part, subgroup, form_id, form_label, form_type), .direction = "down") %>% fill(c(part, subgroup, form_id, form_label, form_type), .direction = "down") %>%
group_by(form_id) %>% group_by(form_id) %>%
fill(condition, .direction = "down") %>% fill(c(condition, required), .direction = "down") %>%
ungroup() ungroup()
# get list of simple inputs # get list of simple inputs
@@ -417,8 +417,8 @@ server <- function(input, output) {
.x = names(inputs_simple_list), .x = names(inputs_simple_list),
.f = \(x_input_id) { .f = \(x_input_id) {
form_type <- inputs_simple_list[[x_input_id]] form_type <- inputs_simple_list[[x_input_id]]
choices <- filter(SCHEME_MAIN, form_id == {{ x_input_id }}) %>% pull(choices) choices <- filter(SCHEME_MAIN, form_id == {{x_input_id}}) %>% pull(choices)
val_required <- filter(SCHEME_MAIN, form_id == {{ x_input_id }}) %>% val_required <- filter(SCHEME_MAIN, form_id == {{x_input_id}}) %>%
distinct(required) %>% distinct(required) %>%
pull(required) pull(required)