Placement national comparison

dfe-analytical-services · Nov 15, 2024 · 9822f64 · 9822f64
1 parent 4a17f06
commit 9822f64
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/manifest.json b/manifest.json
@@ -5700,7 +5700,7 @@
       "checksum": "940dff53b51d664e52e90e4349a97eaa"
     },
     ".Rprofile": {
-      "checksum": "51f2fb9908586819b2ab24bdbcaba134"
+      "checksum": "513db95273d1bf6cd5a64532bf63961e"
     },
     "azure-pipelines.yml": {
       "checksum": "e79f9a1b9e2ba5983dc6312b1fbf22ba"

diff --git a/server.R b/server.R
@@ -4920,9 +4920,9 @@ server <- function(input, output, session) {
         filter(((geographic_level %in% input$select_geography_o4 & geo_breakdown %in% input$geographic_breakdown_o4) | geographic_level == "National") & characteristic == "Placed more than 20 miles from home") %>%
         rename("Placements more then 20 miles from home (%)" = "Percent")
 
-      filtered_data <- placement_data %>%
-        filter((geo_breakdown %in% c(input$geographic_breakdown_o4, location$region_name)) & characteristic == "Placed more than 20 miles from home") %>%
-        rename("Placements more then 20 miles from home (%)" = "Percent")
+      # filtered_data <- placement_data %>%
+      #   filter((geo_breakdown %in% c(input$geographic_breakdown_o4, location$region_name)) & characteristic == "Placed more than 20 miles from home") %>%
+      #   rename("Placements more then 20 miles from home (%)" = "Percent")
 
       # regional only
     } else if (is.null(input$national_comparison_checkbox_o4) && !is.null(input$region_comparison_checkbox_o4)) {