DRWN-280 add GH workflows

.Rbuildignore

@@ -15,3 +15,4 @@
 ^pkgdown$
 ^_pkgdown\.yml$
 
+^\.github$

.github/.gitignore

@@ -0,0 +1 @@
+*.html

.github/workflows/check-standard.yaml

@@ -0,0 +1,43 @@
+# R CMD check workflow
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+    branches: [main, master]
+
+name: R-CMD-check
+
+jobs:
+  R-CMD-check:
+    runs-on: ${{ matrix.config.os }}
+
+    name: ${{ matrix.config.os }} (${{ matrix.config.r }})
+
+    strategy:
+      fail-fast: false
+      matrix:
+        config:
+          - {os: macOS-latest,   r: 'release'}
+          - {os: windows-latest, r: 'release'}
+          - {os: ubuntu-latest,   r: 'release'}
+
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      R_KEEP_PKG_SOURCE: yes
+
+    steps:
+      - uses: actions/checkout@v2
+
+      - uses: r-lib/actions/setup-pandoc@v1
+
+      - uses: r-lib/actions/setup-r@v1
+        with:
+          r-version: ${{ matrix.config.r }}
+          http-user-agent: ${{ matrix.config.http-user-agent }}
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v1
+        with:
+          extra-packages: rcmdcheck
+
+      - uses: r-lib/actions/check-r-package@v1

.github/workflows/test-coverage.yaml

@@ -0,0 +1,30 @@
+# Code coverage workflow
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+    branches: [main, master]
+
+name: test-coverage
+
+jobs:
+  test-coverage:
+    runs-on: windows-latest
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+
+    steps:
+      - uses: actions/checkout@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          extra-packages: any::covr
+          needs: coverage
+
+      - name: Test coverage
+        run: covr::codecov(quiet = FALSE, line_exclusions = "R/plot.R")
+        shell: Rscript {0}

tests/testthat/test-binless.R

@@ -40,8 +40,11 @@ test_that("cont vpc binless vpcstats are correct", {
 
   stats <- fread(location, colClasses = c(qname = "factor"))
 
+  str(stats)
+
+  str(vpc$stats)
   #Check for equality, dispatches to data.table::all.equal method
-  testthat::expect_identical(all.equal(vpc$stats, stats), TRUE)
+  expect_equal(vpc$stats, stats)
 
 })
 
@@ -73,7 +76,7 @@ test_that("cont vpc binless stratification vpcstats are correct", {
   stats <- fread(location, colClasses = c(qname = "factor"))
 
   #Check for equality, dispatches to data.table::all.equal method
-  testthat::expect_identical(all.equal(vpc$stats, stats), TRUE)
+  expect_equal(vpc$stats, stats)
 
 })
 
@@ -124,7 +127,7 @@ test_that("cat vpc binless vpcstats are correct", {
 
 
   #Check for equality, dispatches to data.table::all.equal method
-  testthat::expect_identical(all.equal(vpc$stats, stats), TRUE)
+  expect_equal(vpc$stats, stats)
 
 })
 
@@ -148,7 +151,7 @@ test_that("cat vpc binless stratification vpcstats are correct", {
 
 
   #Check for equality, dispatches to data.table::all.equal method
-  testthat::expect_identical(all.equal(vpc$stats, stats), TRUE)
+  expect_equal(vpc$stats, stats)
 
 })