fix(table_pars.R) extra space, capitalization

- Develop shared functions for making tables #78
pfmc-assessments · Mar 10, 2023 · 4615ff1 · 4615ff1
1 parent 36d1567
commit 4615ff1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/table_pars.R b/R/table_pars.R
@@ -92,10 +92,11 @@ table_pars <- function(output,
     dplyr::select(Label, Value, Phase, Min, Max, Pr_type, Prior, Parm_StDev, Pr_SD, Status) %>%
     dplyr::mutate(
       Value = sprintf("%8.3f", Value),
-      Bounds = sprintf("(%8.3f, %8.3f)", Min, Max),
+      Bounds = sprintf("(%8.3f, %8.3f)", Min, Max) %>% stringr::str_replace("\\(\\s+", "("),
       Status = dplyr::case_when(
         is.na(Status) ~ "fixed",
         Status == "act" ~ "dev",
+        Status == "OK" ~ "ok",
         TRUE ~ Status
       ),
       SD = ifelse(is.na(Parm_StDev), "0", sprintf("%2.2f", Parm_StDev)),