tests/testthat/test_deploy_shinystan.R

In stan-dev/shinystan: Interactive Visual and Numerical Diagnostics and Posterior Analysis for Bayesian Models

library(shinystan)
context("Deploying")

sso <- eight_schools

# load 'old_sso', a shinystan object created by previous shinystan version
load("old_sso_for_tests.rda")
old_sso_msg <- "use the 'update_sso' function to update your object"

test_that("deploy_shinystan error checking works", {
  expect_error(deploy_shinystan(old_sso), old_sso_msg)
  expect_error(deploy_shinystan(sso@posterior_sample), 
               regexp = "specify a shinystan object")
  expect_error(deploy_shinystan(sso), 
               regexp = "'appName' is required")
})

test_that("deploy_shinystan preprocessing doesn't error", {
  expect_silent(deploy_test <- deploy_shinystan(sso, appName = "test", deploy = FALSE))
  expect_true(grepl("shinystan", deploy_test, ignore.case = TRUE))
  expect_true(dir.exists(deploy_test))
})

test_that("deploy_shinystan pp_check processing functions ok", {
  x <- "123454321"
  expect_output(cat(.ppc_lines(x, x)), x)
  
  deploy_pp_test <- deploy_shinystan(sso, appName = "test", deploy = FALSE, 
                                     ppcheck_data = rep(1, 8), 
                                     ppcheck_yrep = "yrep")
  expect_true(dir.exists(deploy_pp_test))
})