Skip to content
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

Open
wants to merge 12 commits into
base: main
Choose a base branch
from
Open

Conversation

cjrace
Copy link
Contributor

@cjrace cjrace commented Oct 15, 2024

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:

  • Tests for the changes have been added (for bug fixes / features)
  • Docs have been reviewed and added / updated if needed (for bug fixes / features)
  • Tests have been run locally and are passing (shinytest2::test_app())
  • Code is styled according to tidyverse styling (checked locally with styler::style_dir() and lintr::lint_dir())

What is the current behaviour?

...

What is the new behaviour?

...

Anything else

...

@cjrace cjrace self-assigned this Oct 15, 2024
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

Commented code should be removed.
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

Lines should not be more than 120 characters. This line is 122 characters.
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

Commented code should be removed.
})
# TODO: Make this work
# observe({
# print(input$regions_bar_selected)

Check notice

Code scanning / lintr

Commented code should be removed. Note

Commented code should be removed.
# 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

Commented code should be removed.
# if(input$regions_bar_selected != "All regions"){
# updateSelectizeInput(
# session = session,
# inputId = "region",

Check notice

Code scanning / lintr

Commented code should be removed. Note

Commented code should be removed.
# updateSelectizeInput(
# session = session,
# inputId = "region",
# selected = input$regions_bar_selected,

Check notice

Code scanning / lintr

Commented code should be removed. Note

Commented code should be removed.
# session = session,
# inputId = "region",
# selected = input$regions_bar_selected,
# server = TRUE

Check notice

Code scanning / lintr

Commented code should be removed. Note

Commented code should be removed.
@axcooper axcooper self-requested a review October 24, 2024 11:59
@axcooper axcooper marked this pull request as ready for review November 5, 2024 12:07
Copy link
Contributor

@johalastrahol johalastrahol left a 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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

3 participants