Merge pull request #269 from OHDSI/bug_counts

fix bug with formatted numbers
OHDSI · Feb 3, 2025 · dc26634 · dc26634
2 parents 6694d82 + 12e7fb9
commit dc26634
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/inst/shiny/server.R b/inst/shiny/server.R
@@ -159,7 +159,9 @@ server <- function(input, output, session) {
       # suppressed to NA
       tbl <- tbl |>
         purrr::map_df(~ ifelse(grepl("^<", .), NA, .)) |>
-        dplyr::mutate(dplyr::across(c(ends_with("Record count"), ends_with("Person count")),
+        dplyr::mutate(dplyr::across(c(ends_with("count")),
+                                    ~ gsub(",", "", .))) |>
+        dplyr::mutate(dplyr::across(c(ends_with("count")),
                                     ~ suppressWarnings(as.numeric(.))))
       tbl <- reactable(tbl,
                        defaultSorted = order,
@@ -273,7 +275,9 @@ server <- function(input, output, session) {
       # suppressed to NA
       tbl <- tbl |>
         purrr::map_df(~ ifelse(grepl("^<", .), NA, .)) |>
-        dplyr::mutate(dplyr::across(c(ends_with("Record count"), ends_with("Person count")),
+      dplyr::mutate(dplyr::across(c(ends_with("count")),
+                                  ~ gsub(",", "", .))) |>
+        dplyr::mutate(dplyr::across(c(ends_with("count")),
                                     ~ suppressWarnings(as.numeric(.))))
 
       tbl <- reactable(tbl,
@@ -405,7 +409,9 @@ server <- function(input, output, session) {
       return(tbl)
     } else {
       tbl <- createCohortCodeUseInteractive() |>
-        dplyr::mutate(dplyr::across(c(ends_with("Record count"), ends_with("Person count")),
+        dplyr::mutate(dplyr::across(c(ends_with("count")),
+                                    ~ gsub(",", "", .))) |>
+        dplyr::mutate(dplyr::across(c(ends_with("count")),
                                     ~ suppressWarnings(as.numeric(.))))
 
       # column ordering by codelist and first column with a count