Merge pull request #84 from sarahkelso/qc_flags_SK

Moved P flag summary
nationalparkservice · Mar 21, 2024 · 37ea698 · 37ea698
2 parents af15dd1 + 940b3e3
commit 37ea698
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/summarize_qc_flags.R b/R/summarize_qc_flags.R
@@ -191,8 +191,8 @@ get_custom_flags <- function(directory = here::here(),
     dplyr::group_by(filename) %>%
     dplyr::summarize("A" = sum(A_flag),
                      "AE" = sum(AE_flag),
-                     "P" = sum(P_flag),
                      "R" = sum(R_flag),
+                     "P" = sum(P_flag),
                      "% Accepted" = mean(RRU)) %>%
     dplyr::rename("File Name" = filename) %>%
     dplyr::mutate(`% Accepted` = paste0(formatC(100 * `% Accepted`,