CRAN Package Check Results for Package episheet

Last updated on 2020-06-15 08:53:13 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.4.0 2.65 32.09 34.74 ERROR
r-devel-linux-x86_64-debian-gcc 0.4.0 2.27 25.02 27.29 ERROR
r-devel-linux-x86_64-fedora-clang 0.4.0 49.39 ERROR
r-devel-linux-x86_64-fedora-gcc 0.4.0 41.96 ERROR
r-devel-windows-ix86+x86_64 0.4.0 10.00 47.00 57.00 ERROR
r-patched-linux-x86_64 0.4.0 2.65 31.47 34.12 ERROR
r-patched-solaris-x86 0.4.0 61.90 ERROR
r-release-linux-x86_64 0.4.0 2.75 31.58 34.33 ERROR
r-release-osx-x86_64 0.4.0 OK
r-release-windows-ix86+x86_64 0.4.0 13.00 47.00 60.00 ERROR
r-oldrel-osx-x86_64 0.4.0 OK
r-oldrel-windows-ix86+x86_64 0.4.0 7.00 43.00 50.00 ERROR

Check Details

Version: 0.4.0
Check: examples
Result: ERROR
    Running examples in 'episheet-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: risk
    > ### Title: Calculate risk ratio and risk difference
    > ### Aliases: risk
    >
    > ### ** Examples
    >
    > # Data from stratum 1 of table 15-1., p260
    > dat <- data.frame(
    + exposure_var = c(rep(1, 8), rep(0, 5), rep(1, 98), rep(0, 115)),
    + outcome_var = c(rep(1, 8), rep(1, 5), rep(0, 98), rep(0, 115)),
    + stringsAsFactors = FALSE
    + )
    > risk(data = dat, exposure = exposure_var, outcome = outcome_var)
    Error: Problem with `summarise()` input `n`.
    x could not find function "n"
    i Input `n` is `n()`.
    Backtrace:
     x
     1. \-episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     2. \-`%>%`(...)
     3. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. \-episheet:::`_fseq`(`_lhs`)
     7. \-magrittr::freduce(value, `_function_list`)
     8. \-function_list[[i]](value)
     9. +-dplyr::summarise(., n = n())
     10. \-dplyr:::summarise.data.frame(., n = n())
     11. \-dplyr:::summarise_cols(.data, ...)
    <parent: error/simpleError>
    Backtrace:
    x
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.4.0
Check: tests
Result: ERROR
     Running 'testthat.R' [3s/5s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(episheet)
     >
     > test_check("episheet")
     -- 1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16) -------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 2. Error: Test risk_ratio returns exected lci (@test-risk.R#21) ------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 3. Error: Test risk_ratio returns exected uci (@test-risk.R#26) ------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 4. Error: Test risk_diff returns exected estimate (@test-risk.R#31) --------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 5. Error: Test risk_diff returns exected lci (@test-risk.R#36) -------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 6. Error: Test risk_diff returns exected uci (@test-risk.R#41) -------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 7. Error: rrmh returns expected value (@test-stratified_risk.R#6) ----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 8. Error: lci return expected value (@test-stratified_risk.R#13) -----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 9. Error: uci return expected value (@test-stratified_risk.R#28) -----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     == testthat results ===========================================================
     [ OK: 6 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 9 ]
     1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16)
     2. Error: Test risk_ratio returns exected lci (@test-risk.R#21)
     3. Error: Test risk_ratio returns exected uci (@test-risk.R#26)
     4. Error: Test risk_diff returns exected estimate (@test-risk.R#31)
     5. Error: Test risk_diff returns exected lci (@test-risk.R#36)
     6. Error: Test risk_diff returns exected uci (@test-risk.R#41)
     7. Error: rrmh returns expected value (@test-stratified_risk.R#6)
     8. Error: lci return expected value (@test-stratified_risk.R#13)
     9. Error: uci return expected value (@test-stratified_risk.R#28)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.4.0
Check: examples
Result: ERROR
    Running examples in ‘episheet-Ex.R’ failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: risk
    > ### Title: Calculate risk ratio and risk difference
    > ### Aliases: risk
    >
    > ### ** Examples
    >
    > # Data from stratum 1 of table 15-1., p260
    > dat <- data.frame(
    + exposure_var = c(rep(1, 8), rep(0, 5), rep(1, 98), rep(0, 115)),
    + outcome_var = c(rep(1, 8), rep(1, 5), rep(0, 98), rep(0, 115)),
    + stringsAsFactors = FALSE
    + )
    > risk(data = dat, exposure = exposure_var, outcome = outcome_var)
    Error: Problem with `summarise()` input `n`.
    ✖ could not find function "n"
    ℹ Input `n` is `n()`.
    Backtrace:
     █
     1. └─episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     2. └─`%>%`(...)
     3. ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. └─episheet:::`_fseq`(`_lhs`)
     7. └─magrittr::freduce(value, `_function_list`)
     8. └─function_list[[i]](value)
     9. ├─dplyr::summarise(., n = n())
     10. └─dplyr:::summarise.data.frame(., n = n())
     11. └─dplyr:::summarise_cols(.data, ...)
    <parent: error/simpleError>
    Backtrace:
    █
    Execution halted
Flavors: r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.4.0
Check: tests
Result: ERROR
     Running ‘testthat.R’ [2s/4s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(episheet)
     >
     > test_check("episheet")
     ── 1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16) ───────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 2. Error: Test risk_ratio returns exected lci (@test-risk.R#21) ────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 3. Error: Test risk_ratio returns exected uci (@test-risk.R#26) ────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 4. Error: Test risk_diff returns exected estimate (@test-risk.R#31) ────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 5. Error: Test risk_diff returns exected lci (@test-risk.R#36) ─────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 6. Error: Test risk_diff returns exected uci (@test-risk.R#41) ─────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 7. Error: rrmh returns expected value (@test-stratified_risk.R#6) ──────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 8. Error: lci return expected value (@test-stratified_risk.R#13) ───────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 9. Error: uci return expected value (@test-stratified_risk.R#28) ───────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 6 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 9 ]
     1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16)
     2. Error: Test risk_ratio returns exected lci (@test-risk.R#21)
     3. Error: Test risk_ratio returns exected uci (@test-risk.R#26)
     4. Error: Test risk_diff returns exected estimate (@test-risk.R#31)
     5. Error: Test risk_diff returns exected lci (@test-risk.R#36)
     6. Error: Test risk_diff returns exected uci (@test-risk.R#41)
     7. Error: rrmh returns expected value (@test-stratified_risk.R#6)
     8. Error: lci return expected value (@test-stratified_risk.R#13)
     9. Error: uci return expected value (@test-stratified_risk.R#28)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.4.0
Check: examples
Result: ERROR
    Running examples in ‘episheet-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: risk
    > ### Title: Calculate risk ratio and risk difference
    > ### Aliases: risk
    >
    > ### ** Examples
    >
    > # Data from stratum 1 of table 15-1., p260
    > dat <- data.frame(
    + exposure_var = c(rep(1, 8), rep(0, 5), rep(1, 98), rep(0, 115)),
    + outcome_var = c(rep(1, 8), rep(1, 5), rep(0, 98), rep(0, 115)),
    + stringsAsFactors = FALSE
    + )
    > risk(data = dat, exposure = exposure_var, outcome = outcome_var)
    Error: Problem with `summarise()` input `n`.
    ✖ could not find function "n"
    ℹ Input `n` is `n()`.
    Backtrace:
     █
     1. └─episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     2. └─`%>%`(...)
     3. ├─base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. └─base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. └─episheet:::`_fseq`(`_lhs`)
     7. └─magrittr::freduce(value, `_function_list`)
     8. └─function_list[[i]](value)
     9. ├─dplyr::summarise(., n = n())
     10. └─dplyr:::summarise.data.frame(., n = n())
     11. └─dplyr:::summarise_cols(.data, ...)
    <parent: error/simpleError>
    Backtrace:
    █
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86

Version: 0.4.0
Check: tests
Result: ERROR
     Running ‘testthat.R’
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(episheet)
     >
     > test_check("episheet")
     ── 1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16) ───────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 2. Error: Test risk_ratio returns exected lci (@test-risk.R#21) ────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 3. Error: Test risk_ratio returns exected uci (@test-risk.R#26) ────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 4. Error: Test risk_diff returns exected estimate (@test-risk.R#31) ────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 5. Error: Test risk_diff returns exected lci (@test-risk.R#36) ─────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 6. Error: Test risk_diff returns exected uci (@test-risk.R#41) ─────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 7. Error: rrmh returns expected value (@test-stratified_risk.R#6) ──────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 8. Error: lci return expected value (@test-stratified_risk.R#13) ───────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 9. Error: uci return expected value (@test-stratified_risk.R#28) ───────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 6 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 9 ]
     1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16)
     2. Error: Test risk_ratio returns exected lci (@test-risk.R#21)
     3. Error: Test risk_ratio returns exected uci (@test-risk.R#26)
     4. Error: Test risk_diff returns exected estimate (@test-risk.R#31)
     5. Error: Test risk_diff returns exected lci (@test-risk.R#36)
     6. Error: Test risk_diff returns exected uci (@test-risk.R#41)
     7. Error: rrmh returns expected value (@test-stratified_risk.R#6)
     8. Error: lci return expected value (@test-stratified_risk.R#13)
     9. Error: uci return expected value (@test-stratified_risk.R#28)
    
     Error: testthat unit tests failed
     Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86

Version: 0.4.0
Check: examples
Result: ERROR
    Running examples in 'episheet-Ex.R' failed
    The error most likely occurred in:
    
    > ### Name: risk
    > ### Title: Calculate risk ratio and risk difference
    > ### Aliases: risk
    >
    > ### ** Examples
    >
    > # Data from stratum 1 of table 15-1., p260
    > dat <- data.frame(
    + exposure_var = c(rep(1, 8), rep(0, 5), rep(1, 98), rep(0, 115)),
    + outcome_var = c(rep(1, 8), rep(1, 5), rep(0, 98), rep(0, 115)),
    + stringsAsFactors = FALSE
    + )
    > risk(data = dat, exposure = exposure_var, outcome = outcome_var)
    Error: Problem with `summarise()` input `n`.
    x could not find function "n"
    i Input `n` is `n()`.
    Backtrace:
     x
     1. \-episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     2. \-`%>%`(...)
     3. +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
     4. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     5. \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
     6. \-episheet:::`_fseq`(`_lhs`)
     7. \-magrittr::freduce(value, `_function_list`)
     8. \-function_list[[i]](value)
     9. +-dplyr::summarise(., n = n())
     10. \-dplyr:::summarise.data.frame(., n = n())
     11. \-dplyr:::summarise_cols(.data, ...)
    <parent: error/simpleError>
    Backtrace:
    x
    Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64

Version: 0.4.0
Check: tests
Result: ERROR
     Running 'testthat.R' [3s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(episheet)
     >
     > test_check("episheet")
     -- 1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16) -------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 2. Error: Test risk_ratio returns exected lci (@test-risk.R#21) ------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 3. Error: Test risk_ratio returns exected uci (@test-risk.R#26) ------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 4. Error: Test risk_diff returns exected estimate (@test-risk.R#31) --------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 5. Error: Test risk_diff returns exected lci (@test-risk.R#36) -------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 6. Error: Test risk_diff returns exected uci (@test-risk.R#41) -------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 7. Error: rrmh returns expected value (@test-stratified_risk.R#6) ----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 8. Error: lci return expected value (@test-stratified_risk.R#13) -----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 9. Error: uci return expected value (@test-stratified_risk.R#28) -----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     == testthat results ===========================================================
     [ OK: 6 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 9 ]
     1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16)
     2. Error: Test risk_ratio returns exected lci (@test-risk.R#21)
     3. Error: Test risk_ratio returns exected uci (@test-risk.R#26)
     4. Error: Test risk_diff returns exected estimate (@test-risk.R#31)
     5. Error: Test risk_diff returns exected lci (@test-risk.R#36)
     6. Error: Test risk_diff returns exected uci (@test-risk.R#41)
     7. Error: rrmh returns expected value (@test-stratified_risk.R#6)
     8. Error: lci return expected value (@test-stratified_risk.R#13)
     9. Error: uci return expected value (@test-stratified_risk.R#28)
    
     Error: testthat unit tests failed
     Execution halted
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64

Version: 0.4.0
Check: tests
Result: ERROR
     Running ‘testthat.R’ [3s/4s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(episheet)
     >
     > test_check("episheet")
     ── 1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16) ───────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 2. Error: Test risk_ratio returns exected lci (@test-risk.R#21) ────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 3. Error: Test risk_ratio returns exected uci (@test-risk.R#26) ────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 4. Error: Test risk_diff returns exected estimate (@test-risk.R#31) ────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 5. Error: Test risk_diff returns exected lci (@test-risk.R#36) ─────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 6. Error: Test risk_diff returns exected uci (@test-risk.R#41) ─────────────
     Problem with `summarise()` input `n`.
     ✖ could not find function "n"
     ℹ Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 7. Error: rrmh returns expected value (@test-stratified_risk.R#6) ──────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 8. Error: lci return expected value (@test-stratified_risk.R#13) ───────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ── 9. Error: uci return expected value (@test-stratified_risk.R#28) ───────────
     Problem with `summarise()` input `Ts`.
     ✖ could not find function "n"
     ℹ Input `Ts` is `n()`.
     ℹ The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     [ OK: 6 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 9 ]
     1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16)
     2. Error: Test risk_ratio returns exected lci (@test-risk.R#21)
     3. Error: Test risk_ratio returns exected uci (@test-risk.R#26)
     4. Error: Test risk_diff returns exected estimate (@test-risk.R#31)
     5. Error: Test risk_diff returns exected lci (@test-risk.R#36)
     6. Error: Test risk_diff returns exected uci (@test-risk.R#41)
     7. Error: rrmh returns expected value (@test-stratified_risk.R#6)
     8. Error: lci return expected value (@test-stratified_risk.R#13)
     9. Error: uci return expected value (@test-stratified_risk.R#28)
    
     Error: testthat unit tests failed
     Execution halted
Flavors: r-patched-linux-x86_64, r-release-linux-x86_64

Version: 0.4.0
Check: tests
Result: ERROR
     Running 'testthat.R' [4s]
    Running the tests in 'tests/testthat.R' failed.
    Complete output:
     > library(testthat)
     > library(episheet)
     >
     > test_check("episheet")
     -- 1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16) -------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 2. Error: Test risk_ratio returns exected lci (@test-risk.R#21) ------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 3. Error: Test risk_ratio returns exected uci (@test-risk.R#26) ------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 4. Error: Test risk_diff returns exected estimate (@test-risk.R#31) --------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 5. Error: Test risk_diff returns exected lci (@test-risk.R#36) -------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 6. Error: Test risk_diff returns exected uci (@test-risk.R#41) -------------
     Problem with `summarise()` input `n`.
     x could not find function "n"
     i Input `n` is `n()`.
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::risk(data = dat, exposure = exposure_var, outcome = outcome_var)
     3. dplyr::filter(., !!exposure == 1 & !!outcome == 1)
     10. dplyr::summarise(., n = n())
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 7. Error: rrmh returns expected value (@test-stratified_risk.R#6) ----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 8. Error: lci return expected value (@test-stratified_risk.R#13) -----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     -- 9. Error: uci return expected value (@test-stratified_risk.R#28) -----------
     Problem with `summarise()` input `Ts`.
     x could not find function "n"
     i Input `Ts` is `n()`.
     i The error occured in group 1: age = "<55y".
     Backtrace:
     1. testthat::expect_equal(...)
     4. episheet::stratified_risk(...)
     3. dplyr::group_by(., !!stratifier)
     10. dplyr::summarise(., Ts = n(), Tc = sum(!!outcome))
     14. dplyr:::summarise_cols(.data, ...)
    
     == testthat results ===========================================================
     [ OK: 6 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 9 ]
     1. Error: Test risk_ratio returns exected estimate (@test-risk.R#16)
     2. Error: Test risk_ratio returns exected lci (@test-risk.R#21)
     3. Error: Test risk_ratio returns exected uci (@test-risk.R#26)
     4. Error: Test risk_diff returns exected estimate (@test-risk.R#31)
     5. Error: Test risk_diff returns exected lci (@test-risk.R#36)
     6. Error: Test risk_diff returns exected uci (@test-risk.R#41)
     7. Error: rrmh returns expected value (@test-stratified_risk.R#6)
     8. Error: lci return expected value (@test-stratified_risk.R#13)
     9. Error: uci return expected value (@test-stratified_risk.R#28)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-oldrel-windows-ix86+x86_64