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

6
app.R
View File

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