docs + github ci update for tmp branch

.github/workflows/ci.yml

@@ -12,7 +12,7 @@ jobs:
     - name: Add kableExtra
       run: Rscript -e 'devtools::install_github("haozhu233/kableExtra")'
     - name: CRAN crunch
-      run: Rscript -e 'install.packages("crunch")'
+      run: Rscript -e 'devtools::install_github("crunch-io/rcrunch", ref = "gfe-multi-weight-tabbook")'
     - name: Build
       run: R CMD build --no-build-vignettes --no-manual .
     - name: Check

DESCRIPTION

@@ -19,7 +19,7 @@ Depends:
     R (>= 3.5.0),
     crunch
 Imports:
-    kableExtra,
+    kableExtra (>= 1.1.0.9000),
     rlang,
     openxlsx,
     digest,
@@ -31,9 +31,9 @@ Suggests:
     httptest (>= 2.0.0),
     jsonlite,
     knitr,
+    httpcache,
     rmarkdown,
-    testthat (>= 2.1.0),
-    kableExtra (>= 1.1.0.9000)
+    testthat (>= 2.1.0)
 RoxygenNote: 7.1.1
 VignetteBuilder: knitr
 Encoding: UTF-8

R/crosstabs.R

@@ -17,6 +17,7 @@
 #' @param include_numeric Logical. Should we include numeric questions? Defaults to FALSE. Implemented for Toplines only.
 #' @param include_datetime Logical. Should we include date time questions? Defaults to FALSE. Implemented for Toplines only.
 #' @param include_verbatims Logical. Should we include a sample text varaibles? Defaults to FALSE. Implemented for Toplines only.
+#' @param include_original_weighted Logical. When providing list of weights to apply, should we include the default weighted vars? Defaults to TRUE.
 #' @param num_verbatims An integer identifying the number of examples to extract from a text variable. Defaults to 10. Implemented for Toplines only.
 #' @return A Toplines (when no banner is provided) or Crosstabs (when a banner is provided)
 #' summary of the input dataset.

R/recontactQuestion.R

@@ -90,6 +90,8 @@ recontact_toplines <- function(dataset, questions, suffixes, labels,
 #'
 #' @param q1 The results object for the first question
 #' @param q2 The results onject second question
+#' @param labels Two character strings used to describe the pre and post waves
+#' @param weights A single alias, list, or NULL
 as.ToplineCategoricalArray <- function(q1, q2, labels = c("Pre", "Post"), weights) {
 
   q1$subnames <- labels