From 609e88df79d8c620be3ebd5ba95bd8c54d277d8e Mon Sep 17 00:00:00 2001
From: Pawel Rucki <12943682+pawelru@users.noreply.github.com>
Date: Tue, 20 Aug 2024 16:58:17 +0200
Subject: [PATCH] spelling; lint
---
R/tm_g_distribution.R | 4 ++--
inst/WORDLIST | 1 +
man/tm_g_distribution.Rd | 12 ++++++------
3 files changed, 9 insertions(+), 8 deletions(-)
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
index abaad4744..ace80d757 100644
--- a/R/tm_g_distribution.R
+++ b/R/tm_g_distribution.R
@@ -31,7 +31,7 @@
#' library(teal.modules.general)
#' interactive <- function() TRUE
#' {{ next_example }}
-#' @examplesIf requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggpp", quietly = TRUE) && requireNamespace("goftest", quietly = TRUE)
+#' @examplesIf all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE))
#' # general data example
#' data <- teal_data()
#' data <- within(data, {
@@ -58,7 +58,7 @@
#' library(teal.modules.general)
#' interactive <- function() TRUE
#' {{ next_example }}
-#' @examplesIf requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggpp", quietly = TRUE) && requireNamespace("goftest", quietly = TRUE)
+#' @examplesIf all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE))
#' # CDISC data example
#' data <- teal_data()
#' data <- within(data, {
diff --git a/inst/WORDLIST b/inst/WORDLIST
index e77494d7b..d00a0162f 100644
--- a/inst/WORDLIST
+++ b/inst/WORDLIST
@@ -1,6 +1,7 @@
Forkers
Hoffmann
Prebuilt
+Shinylive
TLG
UI
customizable
diff --git a/man/tm_g_distribution.Rd b/man/tm_g_distribution.Rd
index 0e6759a5c..2702afa4a 100644
--- a/man/tm_g_distribution.Rd
+++ b/man/tm_g_distribution.Rd
@@ -74,7 +74,7 @@ It offers several tools, such as histograms, Q-Q plots, and various statistical
visually and statistically analyze the variable's distribution.
}
\examples{
-\dontshow{if (requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggpp", quietly = TRUE) && requireNamespace("goftest", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
+\dontshow{if (all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE))) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
# general data example
data <- teal_data()
data <- within(data, {
@@ -97,7 +97,7 @@ if (interactive()) {
shinyApp(app$ui, app$server)
}
\dontshow{\}) # examplesIf}
-\dontshow{if (requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggpp", quietly = TRUE) && requireNamespace("goftest", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
+\dontshow{if (all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE))) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf}
# CDISC data example
data <- teal_data()
data <- within(data, {
@@ -149,11 +149,11 @@ if (interactive()) {
\section{Examples in Shinylive}{
\itemize{
\item example-1\cr
- \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNruAcrDFUdTh2BTAJCVQYWlECMNxdL1o4UmpWXQBeeydnWwAyPN13JL8A0SCCELCI9HjE7xS0zOyXfMLi71L4cuDQ8KITclFSOqTG9KyHVqUAYl0pCDVqXX4oUihdOAAPWFQRJVX1g2MuagB9Q6gbA7WNo10Ad1pSAAsVdkuEkCVdXR8Y45-RgxJQAX0UEEu0G6H1utnuYX+ojCSiUaFQgJUz1CEF+l2anx+uj4QhEomadGGON+v1IMDOEguMVIwPogk01iJNJWzLOWhYBNuZ22LPUpDO5TgBGp3JpUICzURwOReC5stEcBEGmaGq14sl0v5wKg9BEZwILyItEqoj6SLCcgSYQACiluBgADIUCSvB1q34Q7mB3QQiG0Ey6dgqcjMSw6Gy2b643SiN4QVgAQXQ7HRABJvAk8xrGDpGBDQUowKCALpAA}{Open in Shinylive}\cr
- \if{html}{\out{}}
+ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoku7V2WtKmocC7BTAJCVQYWlECQNxdQOD0KJigohNyUVJAuWjGOABHQVpsgDlYMVR1OGjqIglaAm52AEZM3TzaOFJfXQBeeydnOUUIAGJdKQg1al1+KFIoXTgAD1gfOCVp2YNjLmoAfXWoGzWZuaNdAHdaUgALFXZ96JAlXV0C8M2XxnClAF9B-eh4KI7sdbKdAq9RIElG50O8VJcAhBnvtulNjrgnro+EIRKJUXQ0ojns9SDAdhI9uFSJ96IJNNZMcSplSdl5GKj9jtFtT1KQdqJUHB-IymWjZgC9D1wZ9IXgRUzRHARBpUYrlXyBULPCxaFB6CIdgQrkRamIAmAIRlooEAArtbgYAAyFAk1wy8t0gyZXs9SkGtBMunYKnIzEsOhstkeSN0ohuEFYAEF0OxvAASfLRdOKxg6RiDb5KMDfAC6QA}{Open in Shinylive}\cr
+ \if{html}{\out{}}
\item example-2\cr
- \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNruAcrDFUdTh2BTAJCVQYWlECMNxdL1o4UmpWXQBeeydnWwAyPN13JL8A0SCCELCI9HjE7xS0zOyXfMLi71L4cuDQ8KITclFSOqTG9KyHVqUAYl0AYQARAEkAZXndfihSKF04AA9YVBElLZ2DYy5qAH0zqBtT7d2jXQB3WlIACxV2O4SQJS6XQAQUWqwAMhciqCIUoAL6KCB3aDdX5PWwvAh9GHgsKIgBWRBU1wA1nBWKI0TsMcZ+HATFBhKRrgR+DECNdCcSyRTgMiylSoHIALpKJRaFiiACMUIInyJlVE11EcBEGjg-FCECBEsYtCg9BELPltEVguAwDCOLCwuFCSxVqwAFk6mF5gB5Ry+BwATVdYFWzgAGni5LhAboVWryPxmr5HODcRBEUo0KgoSoPlqgXdmn8I3whCJRM1C8IxNmgbpSDBrhJbjFSHr6IJNNYI1XNo3rrq809rgcm+pmeU4A7tZ2q-z4M0rWDcXgO5Oo2PSM0Vxplagx5XJ1W5QqxM1dfrDXBjYfKXcLXPYWBbfbsQBxVx4XRhABCTqwAGksFLQ3DCc9yBDcY1nMAv1-f94iXPcYCZWhjj0LIADFgXBQMgJAqsTFofYNWadDMNcYDJ0RPcwzgyMhx2HsWD7OjB2YTdR3HHDpxQ98wGtRcyM7PDqHIRhmkE4Stx3ajO11EsshkqVsJw3QEKEpCRGaKZSJwijyMUzsJEYIhBFQeiRKyO4B32IdWO3diQM4iDeL0ycxJkUTaCEmQJLsnCZOPSUFKkqsVM0ZCNJyIKdM7KLdB0xFEVoExdHYFRhOHbQQjkWwAQnURvggVhgXQdg0wAEm8BIypVRgdEYRE4SUMA4WFIA}{Open in Shinylive}\cr
- \if{html}{\out{}}
+ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoku7V2WtKmocC7BTAJCVQYWlECQNxdQOD0KJigohNyUVJAuWjGOABHQVpsgDlYMVR1OGjqIglaAm52AEZM3TzaOFJfXQBeeydnOUUIAGJdAGEAEQBJAGVR3X4oUihdOAAPWB84JQWlg2MuagB9HagbbcXlo10Ad1pSAAsVdhPokCVdXQBBcemAGT3dIxvn8lABfQYnaDwUTPC62K7+QLA34ZJQAKyIKkOAGs4KwYSd4cZ+HATFBhKRDgR+OECIcMVjcfjgJCSgS4QBdJRKLyMUQNAEEe6YghiQ6iOAiDRwfgBCAfXm0KD0ERU4W1MSwpbAYBIn4osAcjnRRFgT5YACyCUCowA8o5Cg4AJrWsDTZwADQymXeuglUvI-G6ukKjl+KIggzc6ABKjuco+J2DL19fCEIlEwbTwk1vo+pBghwkx3CpEYDEEmmseY+81Lh15yYuhzWZfUlNEqDgiPltb7rPgwb1ILwNb7-u7pGDE404q7Pb7i90QpFYmDiuVqpXGvZ2t1Zv1gSNJoCZoA4q48IkAEIWrAAaSwDW9uDHi5ngaHYFvD6fUTffYwBStCbMGABiny-O6r69kuHwmLQqwyuBkHugBuiDEuPqwbWaTMEsDYsE2BGtsws6dt2CZwQOeg9MOBowXBpi0NQ5CMMGCGsTIc6UehCosJmPS8vyjFMboQGsSBIjBg4LjoZhi7YUuEiMEQgioIR7E9CcLarG25HzlRS40V+yL-jhfacWxHEsWxPELmJwnrgJDSiUxEmaKBPSya4Fm1gpfYBRhvqDIMtAmLo7AqGx7baHANi2G8vaiI8ECsJ86DsN4AAk+TRDlEqMDojCDKCShgKCHJAA}{Open in Shinylive}\cr
+ \if{html}{\out{}}
}
}