Shinytest and testthat in tandem

[tyluRp]

I have a question about using shinytest and testthat together. How do I avoid two test outputs in the console? My current approach has a file run_tests.R in the root of my shiny project, it looks like this:

library(testthat)
library(shinytest)

test_that("Application Works", {
  expect_pass(testApp(".", compareImages = FALSE))
})

cat("\n\n")

test_file("tests/testthat/some-testthat-test.R")

This is kinda close but it looks like it's running two separate test logs. My log looks like:

==> Testing R file using 'testthat'

v |  OK F W S | Context
- |   1       | run_tests

v |  OK F W S | Context
v |   1       | test1
v |   1       | test2
v |   1       | test3

== Results ==========================================================================
Duration: 22.1 s

OK:       3
Failed:   0
Warnings: 0
Skipped:  0
v |   1       | run_tests [102.2 s]

== Results ==========================================================================
Duration: 103.1 s

OK:       1
Failed:   0
Warnings: 0
Skipped:  0

Test complete

But I would prefer it output something like:

==> Testing R file using 'testthat'

v |  OK F W S | Context
v |   1       | run_tests
v |   1       | test1
v |   1       | test2
v |   1       | test3

== Results ==========================================================================
Duration: 103.1 s

OK:       4
Failed:   0
Warnings: 0
Skipped:  0

Test complete

Any advice would be appreciated.

[tyluRp]

I've just decided to have two test scripts, one for shinytest and others for testthat.