tests/testthat/test-golem-recommended.R

In DivadNojnarg/deminR: deminR

context("golem tests")

library(golem)

#test_that("app ui", {
#  ui <- app_ui()
#  expect_shinytaglist(ui)
#})

test_that("app server", {
  server <- app_server
  expect_is(server, "function")
})

# Configure this test to fit your need
#test_that(
#  "app launches",{
#    skip_on_cran()
#    skip_on_travis()
#    skip_on_appveyor()
#    x <- processx::process$new(
#      "R", 
#      c(
#        "-e", 
#        "setwd('../../'); pkgload::load_all();run_app()"
#      )
#    )
#    Sys.sleep(5)
#    expect_true(x$is_alive())
#    x$kill()
#  }
#)