Skip to content

Commit 41cb8b5

Browse files
committed
Adding the debian check
1 parent 5e33229 commit 41cb8b5

2 files changed

Lines changed: 52 additions & 6 deletions

File tree

Lines changed: 52 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,52 @@
1+
# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
2+
# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
3+
#
4+
# NOTE: This workflow is overkill for most R packages and
5+
# check-standard.yaml is likely a better choice.
6+
# usethis::use_github_action("check-standard") will install it.
7+
on:
8+
pull_request:
9+
branches: [main, master]
10+
workflow_dispatch:
11+
12+
name: Debian R CMD check
13+
14+
env:
15+
GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
16+
17+
jobs:
18+
19+
R-CMD-check:
20+
container:
21+
image: cran/debian:latest
22+
23+
runs-on: ubuntu-latest
24+
25+
name: Debian R CMD check (latest R)
26+
27+
env:
28+
GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
29+
R_KEEP_PKG_SOURCE: yes
30+
31+
steps:
32+
- uses: actions/checkout@v4
33+
34+
- uses: r-lib/actions/setup-pandoc@v2
35+
36+
- uses: r-lib/actions/setup-r@v2
37+
with:
38+
r-version: devel
39+
http-user-agent: release
40+
use-public-rspm: true
41+
42+
- uses: r-lib/actions/setup-r-dependencies@v2
43+
with:
44+
extra-packages: any::rcmdcheck
45+
needs: check
46+
47+
- uses: r-lib/actions/check-r-package@v2
48+
with:
49+
upload-snapshots: false
50+
upload-results: false
51+
check-dir: '"check"'
52+
error-on: '"warning"'

inst/tinytest/test-sir.R

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -36,12 +36,6 @@ run(sir_0, ndays = 50, seed = 1912)
3636
tmat_noqueuing <- get_transition_probability(sir_0)
3737
expect_identical(tmat_noqueuing, tmat_queuing)
3838

39-
# Check queuing is faster ------------------------------------------------------
40-
runtime_noqueuing <- system.time(run(sir_0, ndays = 50, seed = 1912))
41-
queuing_on(sir_0)
42-
runtime_queuing <- system.time(run(sir_0, ndays = 50, seed = 1912))
43-
expect_true(runtime_queuing["elapsed"] < runtime_noqueuing["elapsed"])
44-
4539
# Check functions fail with invalid inputs -------------------------------------
4640
good_name <- "A Virus"
4741
good_prevalence <- 0.01

0 commit comments

Comments
 (0)