Check that data exists in filtering functions

The-Strategy-Unit · Dec 10, 2021 · 66f917f · 66f917f
1 parent 0ac648f
commit 66f917f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/R/app_server.R b/R/app_server.R
@@ -54,6 +54,7 @@ app_server <- function( input, output, session ) {
   output$filter_location_1 <- renderUI({
 
     req(get_golem_config("location_1"))
+    req(data_exists)
 
     location_1_choices <- date_filter() %>%
       dplyr::distinct(location_1) %>%
@@ -73,6 +74,7 @@ app_server <- function( input, output, session ) {
   output$filter_location_2 <- renderUI({
 
     req(get_golem_config("location_2"))
+    req(data_exists)
 
     location_2_choices <- date_filter()
 
@@ -99,6 +101,7 @@ app_server <- function( input, output, session ) {
   output$filter_location_3 <- renderUI({
 
     req(get_golem_config("location_3"))
+    req(data_exists)
 
     location_3_choices <- date_filter()
 

diff --git a/R/tidy_data.R b/R/tidy_data.R
@@ -27,6 +27,8 @@ tidy_all_trusts <- function(data, conn) {
         comment_txt %in% c("NULL", "NA", "N/A") ~ NA_character_,
         TRUE ~ category
       ))
+  } else {
 
+    data
   }
 }