refactor: move the messaging to only report positive records

pfmc-assessments · Oct 16, 2024 · 03fd5a1 · 03fd5a1
1 parent 0396862
commit 03fd5a1
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/R/pull_biological_samples.R b/R/pull_biological_samples.R
@@ -135,11 +135,6 @@ pull_biological_samples <- function(
     )
   }
   bio_samples <- try(get_json(url = url_text))
-  if (verbose){
-    cli::cli_inform(
-      "There are {nrow(bio_samples)} biological samples in the pulled data."
-    )
-  }
 
   keep <- which(
     bio_samples$ovary_id > 0 |
@@ -149,6 +144,12 @@ pull_biological_samples <- function(
   )
   bio_samples <- bio_samples[keep, ]
 
+  if (verbose){
+    cli::cli_inform(
+      "There are {nrow(bio_samples)} biological samples in the pulled data."
+    )
+  }
+
   rename_columns <- which(
     colnames(bio_samples) %in%
       c(