Improved error message when private names are used

ellessenne · Feb 29, 2024 · 3541163 · 3541163
1 parent 1dc5c71
commit 3541163
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -207,7 +207,7 @@
   if (!is.null(var)) {
     if (any(var %in% private_names)) {
       this <- which(var %in% private_names)
-      stop(paste0("'", var[this], "' is not an allowed name for '", label, "'"), call. = FALSE)
+      stop(paste0("'", var[this], "' is not an allowed name for '", label, "'; see help('simsum') for more details."), call. = FALSE)
     }
   }
 }
diff --git a/testing.R b/testing.R
@@ -16,8 +16,8 @@ s.nlp.true2 <- rsimsum::simsum(
 autoplot(s.nlp.true2, stats = "bias", type = "nlp")
 
 # #49
-library(rsimsum)
 library(dplyr)
+devtools::load_all()
 data("nlp", package = "rsimsum")
 # estvarname:
 rsimsum::simsum(
@@ -39,3 +39,12 @@ rsimsum::simsum(
   data = rename(nlp, est = ss), estvarname = "b", true = 0, se = "se",
   methodvar = "model", by = c("baseline", "est", "esigma")
 )
+
+# #48
+devtools::load_all()
+library(ggplot2)
+s.nlp.true <- rsimsum::simsum(
+  data = nlp, estvarname = "b", true = "esigma", se = "se",
+  methodvar = "model", by = c("baseline", "ss", "esigma")
+)
+autoplot(s.nlp.true, stats = "bias", type = "nlp")