-
Notifications
You must be signed in to change notification settings - Fork 0
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Page 1 add reactive dropdown #84
base: main
Are you sure you want to change the base?
Conversation
Merge branch 'page-1-add-reactive-dropdown' of https://github.com/dfe-analytical-services/apprenticeships-provider-dashboard into page-1-add-reactive-dropdown # Conflicts: # manifest.json
delivery_region_table <- delivery_region_table %>% filter(learner_home_region == selected_learner_home_region()) | ||
# # Filter to learner home region selection if it exists | ||
# if (length(selected_learner_home_region()) == 1) { | ||
# delivery_region_table <- delivery_region_table %>% filter(learner_home_region == selected_learner_home_region()) |
Check notice
Code scanning / lintr
Commented code should be removed. Note
delivery_region_table <- delivery_region_table %>% filter(learner_home_region == selected_learner_home_region()) | ||
# # Filter to learner home region selection if it exists | ||
# if (length(selected_learner_home_region()) == 1) { | ||
# delivery_region_table <- delivery_region_table %>% filter(learner_home_region == selected_learner_home_region()) |
Check notice
Code scanning / lintr
Lines should not be more than 120 characters. This line is 122 characters. Note
home_region_table <- home_region_table %>% filter(delivery_region == selected_delivery_region()) | ||
# # Filter to delivery region selection if it exists | ||
# if (length(selected_delivery_region()) == 1) { | ||
# home_region_table <- home_region_table %>% filter(delivery_region == selected_delivery_region()) |
Check notice
Code scanning / lintr
Commented code should be removed. Note
}) | ||
# TODO: Make this work | ||
# observe({ | ||
# print(input$regions_bar_selected) |
Check notice
Code scanning / lintr
Commented code should be removed. Note
# if (length(input$regions_bar_selected) != 0) { | ||
# if(input$regions_bar_selected != "All regions"){ | ||
# updateSelectizeInput( | ||
# session = session, |
Check notice
Code scanning / lintr
Commented code should be removed. Note
# if(input$regions_bar_selected != "All regions"){ | ||
# updateSelectizeInput( | ||
# session = session, | ||
# inputId = "region", |
Check notice
Code scanning / lintr
Commented code should be removed. Note
# updateSelectizeInput( | ||
# session = session, | ||
# inputId = "region", | ||
# selected = input$regions_bar_selected, |
Check notice
Code scanning / lintr
Commented code should be removed. Note
# session = session, | ||
# inputId = "region", | ||
# selected = input$regions_bar_selected, | ||
# server = TRUE |
Check notice
Code scanning / lintr
Commented code should be removed. Note
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
All looks fine now. Region bar highlighted as expected
Pull request overview
Attempt to add a region dropdown onto the first page and then make the chart and table selections update that... Not ready to review yet as still very much a work in progress, will pick this up again later in the week.
Pull request checklist
Please check if your PR fulfills the following:
shinytest2::test_app()
)styler::style_dir()
andlintr::lint_dir()
)What is the current behaviour?
...
What is the new behaviour?
...
Anything else
...