tests/testthat/test-app-formats.R

In rsimon64/qr4genebanks: QR Label Creator

library(shinytest)
library(testthat)

context("Test Shiny app")

# open Shiny app and PhantomJS
# app <- ShinyDriver$new(system.file("appdir", package = "qr4genebanks"))
#
# test_that("output is correct", {
# expect_identical(
#     app$findWidget("tplId")$getValue(),
#     "2x1"
#   )
# })
#
# test_that("output is correct", {
#
#   app$setInputs(tplId = "2x1")
#
#   expect_identical(
#     app$findWidget("tplId")$getValue(),
#     "2x1"
#   )
# })
#
#
#
# # stop the Shiny app
# app$stop()