Rework test runners

Author: krassowski

.Rbuildignore

@@ -12,4 +12,4 @@
 ^codecov\.yml$
 movies.png
 requirements.txt
-document.sh
+run_tests.sh

.travis.yml

@@ -6,10 +6,7 @@ r:
   - devel
 
 before_script:
-    - cd vignettes
-    - ../scripts/translate_examples.py Examples.ipynb _R_Examples.ipynb
-    - ../scripts/expand_run_magic.py _R_Examples.ipynb Examples_R.ipynb
-    - cd ..
+    - scripts/prepare_for_tests.sh
 
 after_success:
     - Rscript -e 'covr::codecov()'

run_tests.sh

@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+./scripts/prepare_for_tests.sh
+Rscript -e 'devtools::test()'

scripts/prepare_for_tests.sh

@@ -0,0 +1,7 @@
+#!/usr/bin/env bash
+cd vignettes
+../scripts/translate_examples.py Examples.ipynb _R_Examples.ipynb
+../scripts/expand_run_magic.py _R_Examples.ipynb Examples_R.ipynb
+mkdir -p ../inst
+cp Examples_R.ipynb ../inst
+cd ..

tests/testthat/test-examples.R

@@ -4,8 +4,8 @@ expect_doppelganger = vdiffr::expect_doppelganger
 
 test_that("The examples in documentation work as expected", {
 
-    examples_notebook = jsonlite::fromJSON('../../vignettes/Examples_R.ipynb')
-    cells = jsonlite::fromJSON('../../vignettes/Examples_R.ipynb')[['cells']]
+    examples_notebook = jsonlite::fromJSON(system.file('Examples_R.ipynb', package='ComplexUpset'))
+    cells = examples_notebook[['cells']]
 
     example_title = 'Example'
     last_title = example_title