From 7c1257942321bdcffd0c89c31fe44dc0f6ee1d26 Mon Sep 17 00:00:00 2001
From: Nitesh Turaga <nitesh.turaga@gmail.com>
Date: Thu, 20 Jan 2022 11:37:20 -0500
Subject: [PATCH] Simple script to run smoke tests on anvil-docker

---
 tests/smoke_tests.R | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/smoke_tests.R

diff --git a/tests/smoke_tests.R b/tests/smoke_tests.R
new file mode 100644
index 0000000..b94c084
--- /dev/null
+++ b/tests/smoke_tests.R
@@ -0,0 +1,15 @@
+library(rmarkdown)
+library(gert)
+library(knitr)
+
+f <- git_clone("https://github.com/DataBiosphere/terra-docker")
+
+## Covert to R
+input <- file.path(f, "terra-jupyter-bioconductor/tests/smoke_test.ipynb")
+output <- xfun::with_ext(input, "Rmd")
+rmarkdown::convert_ipynb(input, output = output)
+r_script <- knitr::purl(output)
+
+## Run rscript
+
+source(r_script, max=Inf, echo=TRUE)