tests/testthat/test-vdiffr-syncPlotters.R

In baktoft/yaps: Track Estimation using YAPS (Yet Another Positioning Solver)

context("SyncModel plotters")

if(requireNamespace("vdiffr", quietly = TRUE)){
	set.seed(42)
	# test_that("plotSyncModelHydros is as expected", {
		# sync_model <- ssu1$sync_model
		# p <- plotSyncModelHydros(sync_model)
		# vdiffr::expect_doppelganger("plotSyncModelHydros", p)
	# })

	test_that("plotSyncModelResids_overall is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelResids(sync_model, by = "overall")
		vdiffr::expect_doppelganger("plotSyncModelResids_overall", p)
	})

	test_that("plotSyncModelResids_quantiles is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelResids(sync_model, by = "quantiles")
		vdiffr::expect_doppelganger("plotSyncModelResids_quantiles", p)
	})

	test_that("plotSyncModelResids_sync_tag is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelResids(sync_model, by = "sync_tag")
		vdiffr::expect_doppelganger("plotSyncModelResids_sync_tag", p)
	})

	test_that("plotSyncModelResids_hydro is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelResids(sync_model, by = "hydro")
		vdiffr::expect_doppelganger("plotSyncModelResids_hydro", p)
	})

	test_that("plotSyncModelResids_temporal_hydro is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelResids(sync_model, by = "temporal_hydro")
		vdiffr::expect_doppelganger("plotSyncModelResids_temporal_hydro", p)
	})

	test_that("plotSyncModelCheck_by_hydro is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelCheck(sync_model, by = "hydro")
		vdiffr::expect_doppelganger("plotSyncModelCheck_by_hydro", p)
	})

	test_that("plotSyncModelCheck_by_sync_tag is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelCheck(sync_model, by = "sync_tag")
		vdiffr::expect_doppelganger("plotSyncModelCheck_by_sync_tag", p)
	})

	test_that("plotSyncModelCheck_by_sync_bin_sync is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelCheck(sync_model, by = "sync_bin_sync")
		vdiffr::expect_doppelganger("plotSyncModelCheck_by_sync_bin_sync", p)
	})


	test_that("plotSyncModelCheck_by_sync_bin_hydro is as expected", {
		sync_model <- ssu1$sync_model
		p <- plotSyncModelCheck(sync_model, by = "sync_bin_hydro")
		vdiffr::expect_doppelganger("plotSyncModelCheck_by_sync_bin_hydro", p)
	})

}