tests/testthat/test-golem-recommended.R

In aassumpcao/ColombiaDashboard: Colombia Diaspora Survey Results

library(golem)

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

test_that('app server', {
  server <- app_server
  expect_type(server, 'closure')
})

test_that('data is available', {
  expect_type(DiasporaSurveyResults::survey_data, 'list')
})

# 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', 
    #     'pkgload::load_all(here::here());run_app()'
    #   )
    # )
    # Sys.sleep(5)
    # expect_true(x$is_alive())
    # x$kill()
  }
)