v0.5.8

janlisec · Jun 17, 2024 · 3ae535c · 3ae535c
1 parent 74df392
commit 3ae535c
Show file tree

Hide file tree

Showing 4 changed files with 588 additions and 597 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Type: Package
 Package: eCerto
 Title: Statistical Tests for the Production of Reference Materials
-Version: 0.5.7
-Date: 2024-06-14
+Version: 0.5.8
+Date: 2024-06-17
 Authors@R: c(
     person("Jan", "Lisec", , "jan.lisec@bam.de", role = c("cre", "aut"),
            comment = c(ORCID = "0000-0003-1220-2286")),

diff --git a/R/fnc_prepFigV2.R b/R/fnc_prepFigV2.R
@@ -53,7 +53,7 @@ prepFigV2 <- function(tab = NULL, a = NULL, alpha = 0.05, k = 3, flt_outliers =
         bquote(b[1]==.(round(vals[,"b1"], 4))),
         paste("r =", round(stats::cor((stats::lm(Area_norm ~ Conc, data=df))$fitted.values, df$Area_norm), 4))
       )
-      for (i in 1:length(plot_ann)) graphics::mtext(text = plot_ann[[i]], side = 3, line = -0.2-1.2*i, at = par("usr")[1], adj = -0.04, cex = cex)
+      for (i in 1:length(plot_ann)) graphics::mtext(text = plot_ann[[i]], side = 3, line = -0.2-1.2*i, at = graphics::par("usr")[1], adj = -0.04, cex = cex)
     } else {
       df <- dfq
       e <- e.qm
@@ -68,7 +68,7 @@ prepFigV2 <- function(tab = NULL, a = NULL, alpha = 0.05, k = 3, flt_outliers =
         bquote(b[2]==.(round(stats::coef(qm)[3], 4))),
         paste("r =", round(stats::cor(qm$fitted.values, dfq$Area_norm), 4))
       )
-      for (i in 1:length(plot_ann)) graphics::mtext(text = plot_ann[[i]], side = 3, line = -0.2-1.2*i, at = par("usr")[1], adj = -0.04, cex = cex)
+      for (i in 1:length(plot_ann)) graphics::mtext(text = plot_ann[[i]], side = 3, line = -0.2-1.2*i, at = graphics::par("usr")[1], adj = -0.04, cex = cex)
     }
     graphics::points(df, pch=4, col=2, cex=2)
 

diff --git a/tests/testthat/_snaps/page_start/test_app_page_start-001_.new.png b/tests/testthat/_snaps/page_start/test_app_page_start-001_.new.png