fix erroring docs

Lifebrain · Sep 27, 2022 · 6c375e9 · 6c375e9
1 parent 73f5193
commit 6c375e9
Show file tree

Hide file tree

Showing 8 changed files with 10 additions and 10 deletions.
diff --git a/inst/docs/paper1/descriptives.Rmd b/inst/docs/paper1/descriptives.Rmd
@@ -208,7 +208,7 @@ child_env$params <- params
 child_env$data <- data
 child_env$q <- 4
 child_env$title <- "Diseases/disorders associated with the brain"
-child_env$descr <- glue::glue("Respondents were given the option to tick boxes with the diseases presented above to indicate which ones they associated with the brain. They were allowed to select as many categories as they wished. The question was optional, and as such we present data from the {thousand(length(unique(gbhs_long_q(4, data)$submission_id)))} who responded to the question. We do not know if those who refrained from responding did so because they did not associate any of the diseases with the brain, or if they simply did not wish to respond.")
+child_env$descr <- glue::glue("Respondents were given the option to tick boxes with the diseases presented above to indicate which ones they associated with the brain. They were allowed to select as many categories as they wished. The question was optional, and as such we present data from the {thousand(length(unique(gbhs_long_q(data, 4)$submission_id)))} who responded to the question. We do not know if those who refrained from responding did so because they did not associate any of the diseases with the brain, or if they simply did not wish to respond.")
 
 res <- knit_child(
   gbhs_path_child("bin_desc.Rmd"),

diff --git a/inst/docs/paper1/extra_qs.Rmd b/inst/docs/paper1/extra_qs.Rmd
@@ -79,7 +79,7 @@ modeltable <- function(data, formula) {
 
 # Question 1
 ```{r q2-results, results='asis'}
-q2_data <- gbhs_long_q(2, gbhs) |> 
+q2_data <- gbhs_long_q(gbhs,2 ) |> 
   fix_data()
 mod <- binary ~ 1 + gender + age + education
 q2_data$data |> 
@@ -90,7 +90,7 @@ The general tendencies as before remain.
 # Question 2
 
 ```{r q3-data, results='asis'}
-q3_data <- gbhs_long_q(3, gbhs) |> 
+q3_data <- gbhs_long_q(gbhs,3 ) |> 
   fix_data()
 mod <- binary ~ 1 + gender + age + education
 q3_data$data |> 
@@ -102,7 +102,7 @@ Men still consider middle and old age as less important when controlling for age
 # Question 3
 
 ```{r q4-data, results='asis'}
-q4_data <- gbhs_long_q(4, gbhs) |> 
+q4_data <- gbhs_long_q(gbhs, 4) |> 
   fix_data()
 mod <- binary ~ 1 + relationship + age + education
 q4_data$data |> 

diff --git a/tests/testthat/test-paper1-desc.R b/tests/testthat/test-paper1-desc.R
@@ -1,6 +1,6 @@
 test_that("paper1 descr builds", {
   skip_on_cran()
-  skip_if(!testthat:::on_ci())
+  #skip_if(!testthat:::on_ci())
 
   dr <- test_path("paper1-desc")
   # make sure files don't exist

diff --git a/tests/testthat/test-paper1-mod.R b/tests/testthat/test-paper1-mod.R
@@ -1,6 +1,6 @@
 test_that("paper1 mod builds", {
   skip_on_cran()
-  skip_if(!testthat:::on_ci())
+  #skip_if(!testthat:::on_ci())
 
   dr <- test_path("paper1-mod")
   # make sure files don't exist  

diff --git a/tests/testthat/test-paper2-desc.R b/tests/testthat/test-paper2-desc.R
@@ -1,6 +1,6 @@
 test_that("paper2 descr builds", {
   skip_on_cran()
-  skip_if(!testthat:::on_ci())
+ # skip_if(!testthat:::on_ci())
 
   dr <- test_path("paper2-desc")
   # make sure files don't exist  

diff --git a/tests/testthat/test-paper2-mod.R b/tests/testthat/test-paper2-mod.R
@@ -1,6 +1,6 @@
 test_that("paper2 mod builds", {
   skip_on_cran()
-  skip_if(!testthat:::on_ci())
+  #skip_if(!testthat:::on_ci())
 
   dr <- test_path("paper2-mod")
   # make sure files don't exist  

diff --git a/tests/testthat/test-paper3-desc.R b/tests/testthat/test-paper3-desc.R
@@ -1,6 +1,6 @@
 test_that("paper3 descr builds", {
   skip_on_cran()
-  skip_if(!testthat:::on_ci())
+  #skip_if(!testthat:::on_ci())
 
   dr <- test_path("paper3-desc")
   # make sure files don't exist  

diff --git a/tests/testthat/test-paper3-mod.R b/tests/testthat/test-paper3-mod.R
@@ -1,6 +1,6 @@
 test_that("paper3 mod builds", {
   skip_on_cran()
-  skip_if(!testthat:::on_ci())
+  #skip_if(!testthat:::on_ci())
 
   dr <- test_path("paper3-mod")
   # make sure files don't exist