saves point exclusions file only if data values are present (#326)

* does not save csv outlier files if contents are empty

* only save outliers if values are located in the file

* added space in if statement

* replaced the cat with the cli call

Co-authored-by: Nate McIntosh <NMcIntosh@cdc.gov>

* Update utils/Rt_review_exclusions.R

Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com>

---------

Co-authored-by: Nate McIntosh <NMcIntosh@cdc.gov>
Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com>

Author: 3 people

NEWS.md

@@ -1,6 +1,7 @@
 # CFAEpiNow2Pipeline v0.2.0
 
 ## Features
+* Does not save outlier csv files if contents are empty
 * Switching base rocker image from geospatial (4.7 GB) to r-ver (3 GB)
 * Refactoring unit tests to make use of setup.R global testing env
 * Adding dependencies to install cmdstanr backend and using GH action

utils/Rt_review_exclusions.R

@@ -137,18 +137,28 @@ create_pt_excl_from_rt_xslx <- function(dates) {
     container_name <- "nssp-etl"
     cont <- CFAEpiNow2Pipeline::fetch_blob_container(container_name)
 
-    cli::cli_alert_info(
-      "saving {lubridate::ymd(report_date)}.csv in
-      {container_name}/outliers-v2"
-    )
-    AzureStor::storage_write_csv(
-      cont = cont,
-      object = point_exclusions,
-      file = file.path(
-        "outliers-v2",
-        paste0(lubridate::ymd(report_date), ".csv")
+    empty_df <- function(df2) {
+      all(df2 == "")
+    }
+
+    if (empty_df(point_exclusions)) {
+      cli::cli_alert_info(
+        "This CSV contains empty values. No output file created."
       )
-    )
+    } else {
+      cli::cli_alert_info(
+        "saving {lubridate::ymd(report_date)}.csv in
+        {container_name}/outliers-v2"
+      )
+      AzureStor::storage_write_csv(
+        cont = cont,
+        object = point_exclusions,
+        file = file.path(
+          "outliers-v2",
+          paste0(lubridate::ymd(report_date), ".csv")
+        )
+      )
+    }
 
     #### State exclusions #####
     state_exclusions <- combined_df |>