Rename parhist to parplot and make it generic

That parhist name was not the brightest idea, as it does
not show histograms.

5 files changed, 6 insertions, 5 deletions

diff --git a/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg b/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg
index fa92c92a..fe38865d 100644
--- a/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg
+++ b/tests/testthat/_snaps/multistart/llhist-for-biphasic-saemix-fit.svg
@@ -50,6 +50,7 @@
 <rect x='228.40' y='75.47' width='146.00' height='410.67' style='stroke-width: 0.75; fill: #D3D3D3;' />
 <rect x='374.40' y='212.36' width='146.00' height='273.78' style='stroke-width: 0.75; fill: #D3D3D3;' />
 <rect x='520.40' y='212.36' width='146.00' height='273.78' style='stroke-width: 0.75; fill: #D3D3D3;' />
+<line x1='352.00' y1='502.56' x2='352.00' y2='59.04' style='stroke-width: 0.75; stroke: #DF536B;' />
 <line x1='101.38' y1='95.62' x2='122.98' y2='95.62' style='stroke-width: 0.75; stroke: #DF536B;' />
 <text x='133.78' y='99.75' style='font-size: 12.00px; font-family: sans;' textLength='51.35px' lengthAdjust='spacingAndGlyphs'>original fit</text>
 </g>
diff --git a/tests/testthat/_snaps/multistart/llhist-for-sfo-fit.svg b/tests/testthat/_snaps/multistart/llhist-for-sfo-fit.svg
index 4342df9b..98513d06 100644
--- a/tests/testthat/_snaps/multistart/llhist-for-sfo-fit.svg
+++ b/tests/testthat/_snaps/multistart/llhist-for-sfo-fit.svg
@@ -50,7 +50,7 @@
 <rect x='228.40' y='75.47' width='146.00' height='410.67' style='stroke-width: 0.75; fill: #D3D3D3;' />
 <rect x='374.40' y='75.47' width='146.00' height='410.67' style='stroke-width: 0.75; fill: #D3D3D3;' />
 <rect x='520.40' y='349.24' width='146.00' height='136.89' style='stroke-width: 0.75; fill: #D3D3D3;' />
-<line x1='2159.04' y1='502.56' x2='2159.04' y2='59.04' style='stroke-width: 0.75; stroke: #DF536B;' />
+<line x1='232.06' y1='502.56' x2='232.06' y2='59.04' style='stroke-width: 0.75; stroke: #DF536B;' />
 <line x1='101.38' y1='95.62' x2='122.98' y2='95.62' style='stroke-width: 0.75; stroke: #DF536B;' />
 <text x='133.78' y='99.75' style='font-size: 12.00px; font-family: sans;' textLength='51.35px' lengthAdjust='spacingAndGlyphs'>original fit</text>
 </g>
diff --git a/tests/testthat/_snaps/multistart/parhist-for-biphasic-saemix-fit.svg b/tests/testthat/_snaps/multistart/parplot-for-biphasic-saemix-fit.svg
index 75519b07..75519b07 100644
--- a/tests/testthat/_snaps/multistart/parhist-for-biphasic-saemix-fit.svg
+++ b/tests/testthat/_snaps/multistart/parplot-for-biphasic-saemix-fit.svg
diff --git a/tests/testthat/_snaps/multistart/parhist-for-sfo-fit.svg b/tests/testthat/_snaps/multistart/parplot-for-sfo-fit.svg
index f3373901..f3373901 100644
--- a/tests/testthat/_snaps/multistart/parhist-for-sfo-fit.svg
+++ b/tests/testthat/_snaps/multistart/parplot-for-sfo-fit.svg
diff --git a/tests/testthat/test_multistart.R b/tests/testthat/test_multistart.R
index e4885191..56eb140c 100644
--- a/tests/testthat/test_multistart.R
+++ b/tests/testthat/test_multistart.R
@@ -25,14 +25,14 @@ test_that("multistart works for saem.mmkin models", {
   skip_on_travis() # Plots are platform dependent
 
   llhist_sfo <- function() llhist(saem_sfo_s_multi)
-  parhist_sfo <- function() parhist(saem_sfo_s_multi, ylim = c(0.5, 2))
+  parplot_sfo <- function() parplot(saem_sfo_s_multi, ylim = c(0.5, 2))
   vdiffr::expect_doppelganger("llhist for sfo fit", llhist_sfo)
-  vdiffr::expect_doppelganger("parhist for sfo fit", parhist_sfo)
+  vdiffr::expect_doppelganger("parplot for sfo fit", parplot_sfo)
 
   llhist_biphasic <- function() llhist(saem_biphasic_m_multi)
-  parhist_biphasic <- function() parhist(saem_biphasic_m_multi,
+  parplot_biphasic <- function() parplot(saem_biphasic_m_multi,
     ylim = c(0.5, 2))
 
   vdiffr::expect_doppelganger("llhist for biphasic saemix fit", llhist_biphasic)
-  vdiffr::expect_doppelganger("parhist for biphasic saemix fit", parhist_biphasic)
+  vdiffr::expect_doppelganger("parplot for biphasic saemix fit", parplot_biphasic)
 })