fixed issue with show.par argument

DESCRIPTION

@@ -25,5 +25,5 @@ Suggests:
     rmarkdown,
     testthat (>= 3.0.0)
 VignetteBuilder: knitr
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1.9000
 Config/testthat/edition: 3

R/eda_dens.R

@@ -17,6 +17,8 @@
 #'   transformation is applied to the x variable.
 #' @param fy Formula to apply to y variable. This is computed after any
 #'   transformation is applied to the y variable.
+#' @param show.par Boolean determining if parameters such as power
+#'   transformation or formula should be displayed.
 #' @param grey Grey level to apply to plot elements (0 to 1 with 1 = black).
 #' @param col Fill color for second density distribution.
 #' @param size Point size (0-1).
@@ -49,7 +51,7 @@
 
 
 eda_dens <- function(x, y, fac = NULL, p = 1L, tukey = FALSE, fx = NULL,
-                     fy = NULL, grey = 0.6, col = "red", size = 0.8,
+                     fy = NULL, show.par = TRUE, grey = 0.6, col = "red", size = 0.8,
                      alpha = 0.4, xlab = NULL, ylab = NULL, legend = TRUE, ...) {
 
   # Extract data
@@ -151,7 +153,10 @@ eda_dens <- function(x, y, fac = NULL, p = 1L, tukey = FALSE, fx = NULL,
        tck = -0.02)
   mtext("Density", side=3, adj= -0.1 , col=plotcol, padj = -1)
   title(xlab = "Value", line = 1.8, col.lab=plotcol)
-  mtext(side = 3, text=paste0("p=",p,";",fx," ",fy,sep=""), adj=1, cex = 0.65)
+  if(show.par == TRUE){
+    mtext(side = 3, text=paste0("p=",p,";",fx," ",fy,sep=""), adj=1, cex = 0.65)
+  }
+
 
    if (legend == TRUE){
     sq <- par("usr") # get plot corners

R/eda_qq.R

@@ -347,11 +347,11 @@ eda_qq <- function(x, y=NULL, fac = NULL, norm = FALSE, p = 1L, tukey = FALSE,
     }
 
     # Add power/formula parameters to plot
-    if(norm != TRUE){
+    if(norm != TRUE & show.par == TRUE){
       params <- gsub(";\\s*;?\\s*$", "",  paste0("p=", p,"; ",fx,"; ",fy))
       params <- gsub("\\; \\;", ";", params)
       mtext(side = 3, text=params, adj=1, cex = 0.65)
-    } else {
+    } else if (norm == TRUE & show.par == TRUE){
       mtext(side = 3, text=paste0("p=",p), adj=1, cex = 0.65)
     }
 

R/tukeyedar-package.R

@@ -0,0 +1,6 @@
+#' @keywords internal
+"_PACKAGE"
+
+## usethis namespace: start
+## usethis namespace: end
+NULL

R/tukeyedar.R

@@ -3,6 +3,5 @@
 #' @description  This packages hosts a small set of Tukey inspired functions for use
 #' in exploring datasets in a robust manner.
 #'
-#' @docType package
 #' @name tukeyedar
 NULL