| 443 | 443 | dplyr::mutate(., |
|
| 444 | 444 | col_total = sum(n), |
|
| 445 | 445 | prop = 100 * n / col_total, |
|
| 446 | - | Total = format_n_percent(row_total, col_total_prop, digits[[4]], |
|
| 447 | - | na_include = FALSE) |
|
| 446 | + | Total = format_n_percent(row_total, col_total_prop, digits[[4]]) |
|
| 448 | 447 | ) |
|
| 449 | 448 | } else { |
|
| 450 | 449 | dplyr::mutate(., |
| 429 | 429 | #' @export |
|
| 430 | 430 | #' |
|
| 431 | 431 | format_n_percent = function(n, percent, digits, na_include = TRUE) { |
|
| 432 | - | if(is.na(percent) && !na_include){ |
|
| 433 | - | paste0(n) |
|
| 434 | - | } else { |
|
| 435 | - | percent = round_tidy(percent, digits) |
|
| 436 | - | paste0(n, " (", percent, ")") |
|
| 432 | + | percent = round_tidy(percent, digits) |
|
| 433 | + | out = paste0(n, " (", percent, ")") |
|
| 434 | + | if(!na_include){ |
|
| 435 | + | out = gsub(" \\(NA\\)", "", out) |
|
| 437 | 436 | } |
|
| 437 | + | return(out) |
|
| 438 | 438 | } |
|
| 439 | 439 | ||
| 440 | 440 | #' Remove intercept from model output |
| Files | Coverage |
|---|---|
| R | 82.15% |
| Project Totals (39 files) | 82.15% |
ewenharrison
