|
1 | | -df[[strata_var]] <- droplevels(df[[strata_var]]) |
2 | | -strata_levels <- levels(df[[strata_var]]) |
3 | | -unweighted_n_overall <- nrow(df) |
4 | | -unweighted_n_strata <- table(df[[strata_var]]) |
5 | | -header_row <- data.frame(Variable = "n", Level = "") |
6 | | -if (mode == "mixed") { |
7 | | -header_row$Overall <- format_num(unweighted_n_overall, FALSE) |
8 | | -for (lvl in strata_levels) |
9 | | -header_row[[lvl]] <- format_num(unweighted_n_strata[lvl], FALSE) |
10 | | -} else if (mode == "weighted") { |
11 | | -weighted_n_strata <- svytable(stats::as.formula(paste0("~", strata_var)), design) |
12 | | -header_row$Overall <- format_num(sum(stats::weights(design)), TRUE) |
13 | | -for (lvl in strata_levels) |
14 | | -header_row[[lvl]] <- format_num(weighted_n_strata[lvl], TRUE) |
15 | | -} else { # unweighted |
16 | | -header_row$Overall <- format_num(unweighted_n_overall, FALSE) |
17 | | -for (lvl in strata_levels) |
18 | | -header_row[[lvl]] <- format_num(unweighted_n_strata[lvl], FALSE) |
19 | | -} |
20 | | -results_list <- list(header_row) |
21 | 1 | for (var in table_vars) { |
22 | 2 | var_formula <- stats::as.formula(paste0("~", var)) |
23 | 3 | strata_formula <- stats::as.formula(paste0("~", strata_var)) |
@@ -510,3 +490,23 @@ devtools::install() |
510 | 490 | devtools::install() |
511 | 491 | devtools::build_vignettes() |
512 | 492 | devtools::install() |
| 493 | +# 9. BUILD PACKAGES (for distribution/sharing) |
| 494 | +devtools::build() # Source package |
| 495 | +devtools::check_win_devel() |
| 496 | +devtools::check_rhub() |
| 497 | +rhub::check() |
| 498 | +install.packages("rhub") |
| 499 | +rhub::check() |
| 500 | +rhub::rhub_setup() |
| 501 | +rhub::rhub_doctor() |
| 502 | +rhub::rhub_check() |
| 503 | +rhub::rhub_setup_workflow() |
| 504 | +install.packages("pak") |
| 505 | +pak::pak("r-hub/rhub") |
| 506 | +rhub::rhub_setup() |
| 507 | +rhub::rhub_setup_workflow() |
| 508 | +rhub::rhub_doctor() |
| 509 | +rhub::rhub_doctor() |
| 510 | +rhub::rhub_check() |
| 511 | +rhub::rhub_check() |
| 512 | +devtools::check_win_devel() |
0 commit comments