diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R index ace80d757..a2240862b 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 all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE)) +#' @examplesIf require("ggpmisc", quietly = TRUE) && require("ggpp", quietly = TRUE) && require("goftest", quietly = TRUE) && require("MASS", quietly = TRUE) && require("broom", 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 all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE)) +#' @examplesIf require("ggpmisc", quietly = TRUE) && require("ggpp", quietly = TRUE) && require("goftest", quietly = TRUE) && require("MASS", quietly = TRUE) && require("broom", quietly = TRUE) #' # CDISC data example #' data <- teal_data() #' data <- within(data, { diff --git a/R/tm_g_scatterplot.R b/R/tm_g_scatterplot.R index fca9e68d5..acc9be701 100644 --- a/R/tm_g_scatterplot.R +++ b/R/tm_g_scatterplot.R @@ -34,7 +34,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examplesIf requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggExtra", quietly = TRUE) +#' @examplesIf require("ggpmisc", quietly = TRUE) && require("ggExtra", quietly = TRUE) && require("colourpicker", quietly = TRUE) #' # general data example #' data <- teal_data() #' data <- within(data, { @@ -122,7 +122,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examplesIf requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggExtra", quietly = TRUE) +#' @examplesIf require("ggpmisc", quietly = TRUE) && require("ggExtra", quietly = TRUE) && require("colourpicker", quietly = TRUE) #' # CDISC data example #' data <- teal_data() #' data <- within(data, { diff --git a/R/tm_g_scatterplotmatrix.R b/R/tm_g_scatterplotmatrix.R index db4ead1b1..a570bf6bb 100644 --- a/R/tm_g_scatterplotmatrix.R +++ b/R/tm_g_scatterplotmatrix.R @@ -22,7 +22,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examples +#' @examplesIf require("lattice", quietly = TRUE) #' # general data example #' data <- teal_data() #' data <- within(data, { @@ -110,7 +110,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examples +#' @examplesIf require("lattice", quietly = TRUE) #' # CDISC data example #' data <- teal_data() #' data <- within(data, { diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R index e990015b1..7f026cb49 100644 --- a/R/tm_missing_data.R +++ b/R/tm_missing_data.R @@ -21,7 +21,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examples +#' @examplesIf require("gridExtra", quietly = TRUE) && require("rlang", quietly = TRUE) #' # general example data #' data <- teal_data() #' data <- within(data, { @@ -56,7 +56,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examples +#' @examplesIf require("gridExtra", quietly = TRUE) && require("rlang", quietly = TRUE) #' # CDISC example data #' data <- teal_data() #' data <- within(data, { diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R index c0a26cbf1..9e4e8e62c 100644 --- a/R/tm_t_crosstable.R +++ b/R/tm_t_crosstable.R @@ -29,7 +29,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examples +#' @examplesIf require("rtables", quietly = TRUE) #' # general data example #' data <- teal_data() #' data <- within(data, { @@ -79,7 +79,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examples +#' @examplesIf require("rtables", quietly = TRUE) #' # CDISC data example #' data <- teal_data() #' data <- within(data, { diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R index 083235083..0a5e208d2 100644 --- a/R/tm_variable_browser.R +++ b/R/tm_variable_browser.R @@ -25,7 +25,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examplesIf requireNamespace("sparkline", quietly = TRUE) +#' @examplesIf require("sparkline", quietly = TRUE) && require("htmlwidgets", quietly = TRUE) && require("jsonlite", quietly = TRUE) #' # general data example #' data <- teal_data() #' data <- within(data, { @@ -53,7 +53,7 @@ #' library(teal.modules.general) #' interactive <- function() TRUE #' {{ next_example }} -#' @examplesIf requireNamespace("sparkline", quietly = TRUE) +#' @examplesIf require("sparkline", quietly = TRUE) && require("htmlwidgets", quietly = TRUE) && require("jsonlite", quietly = TRUE) #' # CDISC example data #' library(sparkline) #' data <- teal_data() diff --git a/man/tm_g_distribution.Rd b/man/tm_g_distribution.Rd index 2702afa4a..f0d24e263 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 (all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE))) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (require("ggpmisc", quietly = TRUE) && require("ggpp", quietly = TRUE) && require("goftest", quietly = TRUE) && require("MASS", quietly = TRUE) && require("broom", 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 (all(vapply(c("ggpmisc", "ggpp", "goftest"), requireNamespace, logical(1), quietly = TRUE))) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (require("ggpmisc", quietly = TRUE) && require("ggpp", quietly = TRUE) && require("goftest", quietly = TRUE) && require("MASS", quietly = TRUE) && require("broom", 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=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoku7V2WtKmocC7BTAJCVQYWlECQNxdQOD0KJigohNyUVJAuWjGOABHQVpsgDlYMVR1OGjqIglaAm52AEZM3TzaOFJfXQBeeydnOUUIAGJdKQg1al1+KFIoXTgAD1gfOCVp2YNjLmoAfXWoGzWZuaNdAHdaUgALFXZ96JAlXV0C8M2XxnClAF9B-eh4KI7sdbKdAq9RIElG50O8VJcAhBnvtulNjrgnro+EIRKJUXQ0ojns9SDAdhI9uFSJ96IJNNZMcSplSdl5GKj9jtFtT1KQdqJUHB-IymWjZgC9D1wZ9IXgRUzRHARBpUYrlXyBULPCxaFB6CIdgQrkRamIAmAIRlooEAArtbgYAAyFAk1wy8t0gyZXs9SkGtBMunYKnIzEsOhstkeSN0ohuEFYAEF0OxvAASfLRdOKxg6RiDb5KMDfAC6QA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsBISqDC0ogT+uLpetHCk1Ky6ALz2Ts62AGTpuu7Rvv6B6BFR3rHxSSkuGVk53nkBRCbkoqRF0aUJyQ6VupnZnrVwfmAAsgCCAMrjrSVxHRVpPdX9PoP+TEREMNMxs+VdaUoAxLpSEGrUuvxQpFC6cAAesKgiSlc3BsZc1AD6b1A2r2utyMugA7rRSAALFTsP6REBKXS6HyhD7IxihJQAX0UED+0HgolhQNsIP8KNE-iUSjQqDRKghfggSL+5ThiN0fCEIlE5TozSZSKRpBg3wkv1CpAx9EEmmsHKFl0l3y0LDZQO+Dyl6lI31EqDgBEFiqF+NgemS5IxlLwCpNojgIg05QdTt1+sN7FVGKg9BE3wIkKItAIYiGFP8cki-gACrFuBgADIUCRQyN2pG4xVZ3S43G0Ey6dgqcjMSw6Gy2BHM3SiaEQVijdDsWkAEm8kTbDsYOkYuKxSjAWIAukA}{Open in Shinylive}\cr + \if{html}{\out{}} \item example-2\cr - \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{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsBISqDC0ogT+uLpetHCk1Ky6ALz2Ts62AGTpuu7Rvv6B6BFR3rHxSSkuGVk53nkBRCbkoqRF0aUJyQ6VupnZnrVwfmAAsgCCAMrjrSVxHRVpPdX9PoP+TEREMNMxs+VdaUoAxLoAwgAiAJLjJ7r8UKRQunAAHrCoIkp3DwbGXNQA+l8oDZPvdHkZdAB3WikAAWKnYQMiICUul0ozO4wAMj9shjsUoAL6KCBA6DwUSIsG2CEEIb4rH+EkAKyIKn+AGs4KxKUCacZ+HATFBhKR-gR+KECP9WeyuTzgGTYGIqQ85ABdJRKLQsUQARlxBFhbIIYn+ojgIg0cH4fggaJ1jFoUHoInFxtopt5YOAwH8DP86vVkTp-qwwyK-hOAHlHAA5BwATUjYHGzgAGky5LhUboLVbyPxynHHFjGRASUo0KhcSoYXa0UDykjc3whCJROU28IVbm0aQYP8JIDQqQnfRBJprH20bdR-9Hc2wf8XmP1GLRKg4KH7bO90r4OV-ZjGXgZ3v89vSOVLxpzVud3un7ojSaxOVHc7XXB3W-vQ9fWPAkwCDEN6QAcVcPBdH8AAhYYsAAaSwPUsxzXdnzRW9CyPMB4KQlCInPJ8YFFWh3j0ZIADFRixNN0Mw2cTFoZ4bXKGi6NcDCnxJZ9s2I5pmAeBcWCXYTV2YO9N23BtMIPSiYLAAMz24vdmOochGHKdTNPvGTiL3R1O2SIy9QYxjdFIjTyJEPZUgM3ReJ48y9wkRgiEEVARK05IgRXZ41ykh9ZOfeTcOUlynx0mRtNoDSZD0x8LKMj9dTMhy0SszQKLslwHKcvcCsc3MSRJWgTF0dgVE09dtEGORbBRXdRHhCBWFGdB2GrAASbxIh6i1GB0RgSUJJQwEJdUgA}{Open in Shinylive}\cr + \if{html}{\out{}} } } diff --git a/man/tm_g_scatterplot.Rd b/man/tm_g_scatterplot.Rd index a8f31e2a0..eabdce4b0 100644 --- a/man/tm_g_scatterplot.Rd +++ b/man/tm_g_scatterplot.Rd @@ -108,7 +108,7 @@ For more examples, please see the vignette "Using scatterplot" via \code{vignette("using-scatterplot", package = "teal.modules.general")}. } \examples{ -\dontshow{if (requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggExtra", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (require("ggpmisc", quietly = TRUE) && require("ggExtra", quietly = TRUE) && require("colourpicker", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # general data example data <- teal_data() data <- within(data, { @@ -192,7 +192,7 @@ if (interactive()) { shinyApp(app$ui, app$server) } \dontshow{\}) # examplesIf} -\dontshow{if (requireNamespace("ggpmisc", quietly = TRUE) && requireNamespace("ggExtra", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (require("ggpmisc", quietly = TRUE) && require("ggExtra", quietly = TRUE) && require("colourpicker", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # CDISC data example data <- teal_data() data <- within(data, { @@ -281,11 +281,11 @@ if (interactive()) { \section{Examples in Shinylive}{ \itemize{ \item example-1\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNruAcrDFUdTh2BTAJCVQYWlECMNxdL1o4UmpWXQBeeydnWwAyPN13JL8A0SCCELCI5wAPUmZ4xO8UtMzsl0UIAGJdKQg1al1+KFIoXTha2FQRJRGxg2MuagB9eagbOdHxo10Ad1pSAAsVdnWEkCVdIs9vd3YB0VJiaiJGLuuAYQB5ACZF3Q-X5KAC+XXW0HgojO21suzCQLCSiUaFQAJUh1CEGu63a5yuuj4QhEonaROEYix12upBgKwkK1io3IjBmRFIVOp12oUHocCGWTCAGUCMyZGzSICjkRaJVRPECVzanjtitJg11KRGag4AROVycdtIXpBWBEXhFQbRPzdZKstaRBptbr9Qbubz+e1hTaNLotCxaLyRIgFdi3dSCNLZWJ2v7GIH6CIVpGZXKYWNgMAEX8wgBdXMJPVhYgWJphQSoMYAazgYTkclwlrdDttcH4XsIJDiFrD4cJwk0MxNugAYgBBAAyQucjd74ZMtFqbfa46nrjnXI+BobTd06Sy6zV9WYTvKLt3hrGxo75tnfZbvvtPq1Z6LG4NPL5At03sdkrjCbBqGfbXCm0aklkAFBnAyZRmm6yZtmwJgPmhahJ2pZ4D+YAVtWtZgPWd4gQ+5DtqauFQDWwEgTAA60EOK6TtORF9guS5kaOTHrn2W6bixEZEK8jArPQ+7DKq6oni+Opvn2EIBDeOY9vez7tCRzqySBn6eqaQqqVBiZwCGykgWBcqxgG0GwamlIXgaCFZmaSmoXZXJFmAAAKPJkGWYB2KwOq+XY7ijPAPlYcWXa+RRVEEa5ug7u+XIkcuWS+I4E4Tvxbq0dQg4iIxa7ZQabGpZxa52bx1KJc2tAAF4waJKpjEeGqnjJrpcvJ8CKchxXXCRanPhpnUfh636-rafqWYZxn9RGcExpBM1JmZlIOUheYFro7klt2CTlpWlH4YR8UpRxh14dRfa5flw6rsx8WlRxD3ceGVXXDVBqMEQewrCYwR2uJLWSZqI12d1w6bSZzaqU+f7g0l1LaRNYB6X+03xtBc3xWtEGY4BMF4+mUCIU5yGoTt6FeVA4UHX5AX4fTwVwKFFCkHWX0qX+ZXpZl83XLd9EFVkr0C6Yi5la9lW7lzAmrADlRA4eoPteeSOQ7111WnDujqa+o1cijHbo1NBlATD4Z4xZWOGdZ4Ek2T5qU+5NN09h-mBRFfkhbS7Oc+L53tHzWXxULDGi1x4vPYV04y++VVbl0XS0CYujsCoLKatoIT1rolxhqIJwQKwY7oOwqIACTeAkVfWowOjvKCShgCCuZAA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsBISqDC0ogT+uLpetHCk1Ky6ALz2Ts62AGTpuu7Rvv6BzgAepMwRUd6x8UkpLhlZOd55hETURIKMqLQEANYyZdGVCckOtUoAxLpSEGrUuvxQpFC6cIWwqCJK84sGxlzUAPpbUDabC0tGugDutKQAFirsR5EgSrrZno1w7NOipMStjEUEDeAGEAPIAJh2unBEKUAF8gUdoPBRI8zrYLv5Yf4lEo0KhoSobn5gXMztUnq9dHwhCJRNVacIxKS3m9SDB9hJ9mEFuQOq1SKy2W9qFB6HBZsl-ABlAh8mTrIikGG3IhdMQRakiwqUs77FYldSkHmoOAEYUit7I2B6aVgHF4bVW0SS80q5KukQaU3my1W0XiyXVWVujS6LQsWjikSILVkgNvAhqjUM5KRxjR+gifbJ9UEFlHYDAbGQ-wAXXLkQt-mIFjK-kEqEWvX8cjkuGdAa97rg-BDzXrToTiZgwk06ztugAYgBBAAyMucnZHAZMtEKfeqc8XrlXbKBAY7Xd0Q3JiwNxWYPtEZpr++tZxRU9LcOHid0PfDnrDJtvfpPEUxQlKVdFDb0VQzLNY3jD8kxTAs0wjKMYzgXMEMLM5i1fCsq10GtB3CPAwLAJsWzgNtjwfNkv3Ift7TIqBW3fOCx2oCcRG3BclxXODTA3Ldkh3JdAN0Q8rSogN-iIRh9noM8jkvI0bzvf0RRteAB0dXjE1o6paN9e8+OA4N7RlX9kMzVC4xYj881TaooNQ9D8xZUT1KwksHTLMBKx0viCIABTFMgGzAOxWDNMK7HcBZ4FC4jaxIIjIkbZsmIosBxI-SS4NowTdAAOUced5380dx1oScuN3cq1wE+iZ24vccpPXKRVEWgAC80PkvUL0Na8-1U0SNJfby3zqmiLJ-CDDLUq0TNA8D3Us6C4BsqaRXsxDHJQ7M0J2zDFmwibcOrPxCLCxjmPbLbpoggq0vI2DWMq6qhOa+63nXTdGuElrE2yg8psYIhLn2Ex1FifqoCUob5tGp9bS0nz7r02b3UR6jAxAgdzIgtbrNeuyMKQpyDpc1N0ROrzHT8-DLuCqAEtS8LIsytmYrgOKKFISjvs-X8CuK0rBbYjipwBwXfoKgHROBt52rZf5Iehj1zzhwbjWxj8xtRybRIxoW5v-Iy4KW-GLIpmDbMTI7yf2nMHZpqBTvpvCgpC-nEvZqLfe53mEru9yTd7RrRbK0OJaqzjPtq0PZf+5qFba51xKBIFaBMXR2BUfljW0L5210F4yVEe4IFYWd0HYAkABJvEiBvXUYHRAQRJQwHhcsgA}{Open in Shinylive}\cr + \if{html}{\out{}} \item example-2\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNruAcrDFUdTh2BTAJCVQYWlECMNxdL1o4UmpWXQBeeydnWwAyPN13JL8A0SCCELCI5wAPUmZ4xO8UtMzsl0UIAGJdAGEAEQBJAGU+3X4oUihdOFrYVBElSemDYy5qAH0VqBtlqZmjXQB3WlIACxV2HYSQJV0iz293dggxUmJqIkYuh4BBAYjAAyayKAOBSgAvl0dtB4KJrgdbEcCKEwOCgWEugArIgqTYAazgrARO2Rxn4cBMUGEpE2BH4MQIm1x+KJJOAsLKiOmcgAukolGhUKCVGdQhAHjt2jd7ro+EIRKJ2grhGIJQ8HqQYJsJJtYlNyIxFkRSBrNQ9qFB6HBqO0wiMCIaZCbSP1znjKqJ4nKLbUZQdNnMGuo6eU4KjfRaJgc4XosmEMT7JdGHqJbRG3Vl0yINPrUBHzanLdbbfawCMMxpdFoWLRrSJEMni5qCB7aF72rXGPX6CJ6e2vTyoMBgInAZiwHy+QlI+iAOKuPC6MIAIQAslgANJYACMTTXm53ACYsXJcFHUznM3B+OW-ovmy35bTaIt47oAGJ-IEjZwXlMWxMWhalvdpv1-VxAOjX4YIA1N0iyHYg3qZg83DSNoItLl4HvCcnyvKss10a90ILTDn10K0bTtBMKyIms6wbOAmzwS9ozbT0xC7Ji+zgAcuNJA5R3HCEpxnXQ5wfJcEkPbc9wPMAN3k08wDkc92ItUjyDvOjlJ3fc2Kw6MYFfd9wJ-P94OfYDQN0r9LKgltYItDTjM+b5NnoRCY2mFCQzIwtNN8qA4zwsTrMI3NiO0-MguMi1qLLOjK2ixie2Y1jIuLTiO24rJu17ftcqHYLsOEsd0Xw8TspbKTH2XOSDMU-SsFU2SwCwP4+hkldOucechgAeV8QyXOLNzKO0sCsl8RwgSBWqTLMkQLMgpaLVsmaHMg4LxoeSbo1EWgAC9+O8gM-ODNCw3Iotoxwj9RMnDaSIY7MiLiijnyS2i+tSzN0qKliCJywd8qB5iBLyoTphEqqxOnWc0WklqjwUtTDpbab7MTBrXoeUzqE0cysggqyytMEDtvJpyJvYrHNUYIhjk2alKmI5DrtDL77vK6YwropMjOx963ui3nKd+8sAerQrMtB1MSoh+W+Ohocdnh4WkcktFWvavqup6xSsAG4bRrPAnxZvey5oWq2iZJ1ayccq2tvs2m9oZpbPjZ4JOcDbnAu+1NHvCl7gu09pYowvno2llKGNVxtFY48HlQK3jivT4cteqnW531k3ut6sJTcGkaxsZqKbfaO3Fspx232dnaKYSzV3bWv8veM8bYK6LpaBMXR2BUI1Q20EJ1N0O4U1ES4IFYP50HYYUABJvASdf00YHQfihJQwEhPkgA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsBISqDC0ogT+uLpetHCk1Ky6ALz2Ts62AGTpuu7Rvv6BzgAepMwRUd6x8UkpLhlZOd55hETURIKMqLQEANYyZdGVCckOtUoAxLoAwgAiAJIAypO6-FCkULpwhbCoIkorawbGXNQA+vtQNnur60a6AO60pAAWKuznkSBKutmejXDsEDEpGIrUYigg3wAgtN5gAZQ7ZaFwpQAX3B52g8FEb2utluBD8YCRsP84IAVkQVCdeqxsec8cZ+HATFBhKQTgR+KECCcKVSaaJgBjYGIcWs5ABdJRKNCoBEqR5+CHLa7Vd5fXR8IQiUTVLXCUUa76kGAnCQnMKrcgdVqkJXfB26ahQehwajVfzzAhWmQ7IikKZPSkEMQRI0Owpq64nTYldTs0SoOAE8OO4XwD1EmEkvCph2iN3JgPJAsiDQWpMp5WOx3O13u5KewsaXRaFi0F0iRBh6s174EINdMTVNuMDv0EQcwchunXYDAfzE-wSiWRFNEgDirjwun8ACEALJYADSWAAjGV90fTwAmUlyXB5x2lotwfiZyFbnt9x0wNm0HY9GSAAxSFYXmZxH17PsTFoQo32qUDwNcaCHXBPsHzzIYVTWGNimYctE2Te0f3TIDdyzZFc1Q74XxbEtmwTSsSJ-J0XTdTN5kY1t207OBu2o1j+2nYdklHcdJwHYNRXOedF2zZdV10ddP23SIrxPc9LzAQ9NLvMA5Ewmj80YhDGx068tMEoS-2oTRAMQsCIKgoTTDgszdCQiCn10dCayMvsQSIRgTnobDzjwuNCOYnyyI-BTrL7Oji10ZKK2InzvjrDjzK4ssA3EviBJcoSpKHXUxN4ic4CnaTsUyh1ZIXSicxXErXJUr8dw008L26iy9O0rBIUmNSKKwZwN1mAB5AA5Pq-NYgKhOSjzZscWFYXan9bPskRHOQ7aYPc98QKclClrzZbn1oAAvGqwqjXDYwIpiMuMuLzKXRKa2S6o0qIqtXOyhsKLyoseLHIrv1KkSKshiSarKmcxSgOSWsUtdCVU7TdN6+8jt+0zToonGfr7XaAP2s7Doa2D4JJryLp-Ra0MJxgiDuE4WRDFKIpe+N0qB0jrkxcj5KownaO4hj8qFlifxBzjuMK6rioa5HRIRvjavK1H0e+trlMJPGsH09SwGG0ahsmmb5oJhrVpJ9bNqlh1KYcmnnLpk6Du84zWe+a6HRBbn1FiJ6oEi175di0WRXiyWfL+2Wi1j4ysvY0Gm3y7W1Zh1jNfh1XJLh-XmsNpT11N83xpGsb-Amqa5oW4OkuJ6oXa2hqPepzzzrd756Y8pmfMD3zwz88FwVoExdHYFRrXjbR-kM3RPmVUQXggVhIXQdhZQAEm8SIj4LRgdDBVElDAFEJSAA}{Open in Shinylive}\cr + \if{html}{\out{}} } } diff --git a/man/tm_g_scatterplotmatrix.Rd b/man/tm_g_scatterplotmatrix.Rd index f0eaf7431..6fa774de5 100644 --- a/man/tm_g_scatterplotmatrix.Rd +++ b/man/tm_g_scatterplotmatrix.Rd @@ -48,6 +48,7 @@ For more examples, please see the vignette "Using scatterplot matrix" via \code{vignette("using-scatterplot-matrix", package = "teal.modules.general")}. } \examples{ +\dontshow{if (require("lattice", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # general data example data <- teal_data() data <- within(data, { @@ -130,7 +131,8 @@ app <- init( if (interactive()) { shinyApp(app$ui, app$server) } - +\dontshow{\}) # examplesIf} +\dontshow{if (require("lattice", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # CDISC data example data <- teal_data() data <- within(data, { @@ -182,16 +184,16 @@ app <- init( if (interactive()) { shinyApp(app$ui, app$server) } - +\dontshow{\}) # examplesIf} } \section{Examples in Shinylive}{ \itemize{ \item example-1\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqUBiXVIhrqu-lCkULpwAB6wqCJKAUEGxlzUAPoxUDbRgcFGugDutKQAFirsKbi6IEq6usTmpIy0YnH+GRgmzPDsFZW6tPy6ALxVHWAAIq54ugpgAGJYk6WTAJJ2cxNgzgDKK5MACsvjkwDis-tgAHIAMltgAEJj82DnjlcAgntyuJ2VEkQ6jBDwZH6pnUpCIjA6EC6XQI7AATKV4bpEQBGBFo3SojGlTGw96fLrUKD0ODUURAmGTACyJBYBHyrCuWDgqEE9DoBEmikhXTx3MqhIgEkEUCkiRMsFo1FYQPFGjBEKhlRhmIAzKU1boNRqUdj1djeYrdITiaTyUMDjIYFBlByTgAJEkiG2MohWixwTn4g1dVBEFmEzQkM0ADg1ADYAOylMMABlKABYoxi4xjMcik8jMTGMGHSgBOb2VFhwYIDGEqgCsSYrFdVMcxFZjFfzKJViPjdYROdKocLXn4qDNKow8a7SdhGDTI9K2Y12cR2aT2ebumzWZHff4cHopDNE5xGG106R3ZPR9HZ67F4n565lTvulE3AaWRSLTacAVXR6QORiEbHx8lURA1GwiQ-gMT4wJEn74kqQyjFcMxXEsVwbFcuxXEcVwXFctxXI8LxvIBhqiLQABeegDABcG6IwzKEgQVH2E4rhAX2rAlowQKiGCpDsFBMFwvWMaILCMbiaUAF0Qx6jMQ4LhyH2OgQIIzGCSI7AUmAohWtQ1BXPA-C0IIMBXISjBSFcJB0D4nJSSm9GRHJQIKc4fYENaTH6XAvSQREmkwm5pRTM85zrO5DmlE5jHyaxfYAI7CmQeTSgMfxgjA7DSciMYpuJHlEKIpBkulECZdlKbBvlMZ9qgjBECYeRAhljBZdJknJg+XIAL5cik0DwKIxQZLYWTadUZB1GIVxPiIoiehAABWRAqIkADWcCsMNKRjcYK1rZt21fgdEAbVtQyTbU9QLScV3Tbd9w9PZnSnedHCTHNM0nF9j2rM9YDem9R2XSBU03bNz5-dpANApM92sOB-CclyXJKGgg5ZCoeRfikQIlJ0fBCPNQJE8IYhfpUpAwIkEiJKInmkOQjCREQ1OBHUoSUwSRIknDYDrIzzOs7uVrXaEcy0VoLC0ESJMDHQxXc1CKSJGEtQgvTqBwBSQGGgNsDMfDYPXd9JGGl0ogkjru6QdbGhazrysW8afMDJM6z27u0t1HLYiIJLesW3Sq1MaVug+7LbJwIkIe0GHI1BMAwDG6BENgAAuhnfYW4+Xu+WakzFlAVwSAOVxbjuL1B4aMDCJoMGuax5u55UYJbvRfksS4Let01oQFwMoXhWxre6A+ho510qvq8wDuiNrutjwb8D879gdj011DMzKkrM47S9j0avN+O7AtexHMt+wHeC0YaPvh6nU2IwDve53HYdAtL1BqbH+ShxTFIydPpQ0mFne4CMkbVyPnnEQGhB6DEmIhE4yETioROOhE4mETjYROLhE4+ETiEROK8aBR867b1oI3AYbk748jfoqK2cDbawJtgfZ2hpXan1WJ7Zhl9fbR1EDfBhhoP4NAGJHP2f8AE7QyMAnSoDM4Z1KNpJK1pNCkAZHdIqJUrj1UankFGIjGH5y7qo5KGitEQJ0X9SY+imqkDIWPChDcRBNx7nQqE7cZAIOCp4ro-cEHDwiv4ieiown3i9J0VGShaAmF0OwFQzMQTaE-EpMonRRCFAgKwZ46B2AYwACSCFoKUIpVtGC-F6koMAPUM5AA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CmlCkmgRw-ri6XrRwpNSsugC89k7OihAAxLpSEGrUuvyBULpwAB6wqCJK+aSFRrpc1AD6VVA2lQUGxgDutKQAFirszeEgSrq6xOakjFGiHXkFGCbM8H4QY2O0-AnjfmAAIq54uv4AYlhhx2AAknYX-s4AyndgAAq3R-4A4ucfYAByABlngAhQ7hfwAxzPACC7zkuFG6wkRB0jAg8DI2xM6lIREYq3W6wI7AATOEyboKQBGcm03Q0+nhBkk+GIwnUKD0ODUWaJYn+ACyJBYBF6rGeWDgqEE9DoBH8qUJrLW6w5EAkgigUga2JgtFiWJxeIJhJ2DIAzOFLbprdbqUyrUzlabdByuTztvywJ8ZDAoMp5b8ABLckQBiVEP0WUJgRXrZ3rVBEaUczQkT3sAAc1oAbAB2cI5gAM4QALAX6SX6QyqRWqQyixgc+EAJwJsYsOCFPnsc0AVgrfb7FqLDL7Rb7rep5oppZH5Kb4Wz7cy-FQGfNGFLC4rJIwNa34Ub1sbFMbFcbk90jYbW5X-Dg9FIGb3zIwdsPlMXX4-25-C7-PdfzjONRG4MQ5maRZljgE0Ni2RIqUQccERVMYJjINgGk2bYwJgcpYLZIldgOZ4zmeG5nkeZ43meb5nkBEEwUuSEYThVCXVEWgAC89ESFCiLGdxynUPikhcIiV1YLtGFwvFSHYPCCNJUci0QEkiw08IUN0YSORCbYHBcOQVx0CBBDEpSRHYL1RD9ahqGeeB+FoQQYGeDlGCkZ4SDobIFW0qs9NEwzkhXAh-RCBy4AQ3QrNg4kjOccITmhAEHhSQLwmCgzEiSlcvH9TRSDiRI0TxGB2B0qkiyrDTwqIURSF5XSIAqqqq0zOqixXVBGCIEwem2crGEqnStMrEClAAX1SZpoHgURBgKWxai9DCphmZ4wJEUQFSUAArIgVAaABrOBWCW5pVuMI6TvOy6TTuiAzou3YNumMRng+rbfk2ALEWe16OH8Havt+MG9r+-gAZVIGHveohJk+qHwTASGLi9f6wG2fwPtYbCYdjVJUiUNB11qFQehNZptiGRE+CEXbtkZ4QxDguoYAaCQGlECKghkcoiFIP1NuKDmxjdblcbAB5+fIRghefUXpmKMJBN0LQWFoTlmcSOgmol9ZmgaEophxXnUDgfk0JdeZqgWsS8aRzDfo4u2xlEblrefRIvZEDRLeto2XSl3JEn8B5vY0TXtd1sREHV22PdFY6QharXpnjhpU9odPluqYBgGd5HfoAXTLlcPf9n2YozfxOygZ4JDXZ4HyfWGPcJGBhE0AjQpcd2u90PEH3cWKkqHrvBuKOvElS9LXGT004xdKvjYKU3inNwPRCtm3h-m2AnfR8DUY1wlBuoBWsX1BWg4P4fXU5aWI9l6Pn0znXZTgRO8Av00mcWol0wgTbGU8U69DThBRIWtqAWRzlAvO7NmhF1BmffwFc0b40Jp3J+NcNBzx2P4UivxyK-Eor8aivxaK-Hor8RivxQTPFYr8WEeDh492vrQfueVkgALGOvQkBDfZxQ-g-EOpow4yyjgHT+ccf6iD-hAu2ud07bC-tnNRKCChoNPrtTBZdwhekKmQHo4pfjECaqjS4fUBo9AVEI00IiiEmM1GYkq31GrNWeHYwapAOFdy4X3EQA9koCPWKPGQRDJ4RLGDPIhC8MoRNXivDWqSpoQFSLQEwuh2AqAVjibQsETK6BGCqUQ-QICsGhOgdg5MAAk3hwiNK9owVEqRppKDANNMuQA}{Open in Shinylive}\cr + \if{html}{\out{}} \item example-2\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqUBiXQGEAIgEkAZS9dfihSKF04AA9YVBElUPCDYy5qAH1EqBsEsIijXQB3WlIACxV2TNxdECVdXQBBHwCAGWTdRkaW2oafLAC2jt6ApQBfRQhM6HhRCtzbfIJ2BTBO5uWq5ca+5fGAKyIVNIBrOFYZzPnjfjgTKGFSNIJ+WlECNP3Dk7PgSdgxWfCcgAum5oOg2ipiksIHVMroALwhXK4bp8IQiUQI3Ro4T-bp1UgwNISNKvMLkRhxIiEsKMWhRaF1Jm6ahQehwahY5YBAjkmRU0jY2n09b4plaFi0NkYrF0USkRnMpmZNLRUjMDSk1BwRZipVI8JTPSIzZNNZ4PVK0QcnWCxHWkSa0Ta3Uw-VK1nszkmsABG0aXQSunSsSIUVu91MgglA4EMRYoNS+giR4x2hx865YDAU1dMBAoFyFERyO6B22uD8LG6lYAcVceF0yyw9S8DY2vucAA0dsXS0yYPdaHFjfYnM4+-3dERGNdGJWsQ4XJP+yZ6QvEQAxerNAKuEv68aRouW2G5VVRdXqB7OnWKyO-eBclZDcOr2jUClYtefmRau+nh6bIcs+fqOoKFD8KgBxkKIYYWge7pBpiiI1gACvULYALK+OsTYrAAaoEfh2L2gHMtGsbxoiErUIIcCplRmbhNmprbPmQJVOhmH1DhPh4ZsREBCRva6Nx2ECYRxGkWAcgnoh+rlhoG74X4AByBHOHYujGM4ak+LoADym66OpPiOF4dh+IZalvlOg6fsOIiLuO5G6PJ-ZKXaZb+jeLr3qWnogT6YG2oGkohnBdn9pR6bUeFwbJgxsUZgCUCsS+7EFh5U5eSpNb1PWkn1ARO7FT4ACaZEKUqDmaCOLnLm5dQznOKlLhOzWmOuVZbjue5uUe7pDcyI3ud04zjLQJi6OwKgUte2hwDYtg1G6ohlBArD1Og7BoKgAAkgi0FU+0HdajA6Iw4wjEoYAjECQA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CmlCkmgRw-ri6XrRwpNSsugC89k7OihAAxLoAwgAiAJIAypm6-IFQunAAHrCoIkolpGVGulzUAPr1UDZ1pQbGAO60pAAWKuwd4SBKuroAgtn5ADK9uoxzi1Oz2Vj5y6tb+UoAvqkd0PCiY6W2TQR+YGsLYbr+c9v+qQBWRCqtANZwrAuHWuxn4cBMUGEpFaBH4tFEBFaXx+-0BwFOsDElwacgAukolGhUMsVIM-BBph0EsVSrgNnwhCJRNSGcIsRtpqQYK0JK0EYFyIwakQuYFGLQKuTptLdNQoPQ4NRqf58gQBTJhaRdDAxRKwhzpVoWLR5UzqXRRKQpTLpR1WpVSMwNHzUHBbgabTSGmc9IkXvNHngPTbRIq3VrEqGRM7RK73RTPTa5QqlX6wPkwxpdEbxaaxIh9QnE9KCENviFmYkcyb6CIYWXaBXsVBgMB-eswLjcXI6UXi7oo+G4Pxqe77gBxVx4Z5gLAzTJT8Iq5wADXevf70pgUNoNV9SRcG83uiIjDB7hHiQch+DnpMEuH1IAYjMFvlXH3Paliz3b16oPaFSOuo0Kxm61rFhi8DKvc+yFpu97UIK1KIYKLrgX+MrJoqMEZtGWoUPwqDfGQogFkGn6Jjmla6GOAAKMxzgAsjkTwvAAagUuR2OumElg2FbUka1CCHA9blliHStv6bydri4T0YxMwsdkbH3Jx+TceutF3AxzFqTMGlaWAci-pRnqDhoj5prkABy7HOHYujGM4tnZLoADyT66HZ2SOJkdi5B5tnwce25IbuIjUteH6bmZm6WRGA6ZqBcYQf22GpjOeHhtmxp5mRoWbqWEk0dWebiY2kmlNJsGyV28XHol1k6S8k4Gexr4GdkACavHmTa4WaHu0XJEem6nueLUxeN-b3hULUvm+sX9t+iZrTKG26GtqSpLQJi6OwKiCiB2hwDYtiTAmogjBArAzOg7BEgAJN44QvaGjA6IwqSHEoYCHLiQA}{Open in Shinylive}\cr + \if{html}{\out{}} } } diff --git a/man/tm_missing_data.Rd b/man/tm_missing_data.Rd index 09709b3ee..ef4c86dc2 100644 --- a/man/tm_missing_data.Rd +++ b/man/tm_missing_data.Rd @@ -58,6 +58,7 @@ It is useful for clinical data analysis within the context of \code{CDISC} stand adaptable for general data analysis purposes. } \examples{ +\dontshow{if (require("gridExtra", quietly = TRUE) && require("rlang", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # general example data data <- teal_data() data <- within(data, { @@ -87,7 +88,8 @@ app <- init( if (interactive()) { shinyApp(app$ui, app$server) } - +\dontshow{\}) # examplesIf} +\dontshow{if (require("gridExtra", quietly = TRUE) && require("rlang", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # CDISC example data data <- teal_data() data <- within(data, { @@ -107,16 +109,16 @@ app <- init( if (interactive()) { shinyApp(app$ui, app$server) } - +\dontshow{\}) # examplesIf} } \section{Examples in Shinylive}{ \itemize{ \item example-1\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqUBiXVIhrquuAAesKgiuvxQpFBK4ZEGxlzUAPoxUDbREVBxugDutKQAFirsKbi6IEq6uoxwAI6CtNXsPqKkxNREjIoQFbpQ-PyJ0KJZZhaa1gG25RCVlQHAosEi7KK1idwkEuyTpSbtHewiEBIF27YAVFXmtCbsAIylGAAMAKyPdwDsct8AulkAcgBBHpzHoAXzcM10DVowyM0MYsJ6MFaLDhxhRBDRkMqMNEwD+8OoaBCHDxpT6AyGXUqmLRBKyxPQ1A4dMYogp-UGUFENN0bPxwAUhFY1GFP0Jxh5GBM6lIBwFwCFIrFYAlfMVyqkLHFkt64llGgVqPZSuF2sYuq6YK6KWg8FExQytnhBHYwrxwtKwoFwq6ShJWRUeXdUJSugAvGEMrhkQJhGJI-z4yJHSDdKQYIkYLDRCoJMkMmkoV0ujddOwVORmJYdDYpj1RIUIKxAeh2CSACT1CnoTurRg6TpKCEQMBgn5AA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsBKMtPzOAB6kzP64ul60cKTUrLoAvPZOzrYAZJm67rG+-ozUUBASUTHe8YkpaS6KEADEulIQatS6cKGwqCK6-FCkUEr9gwbGXNQA+iNQNsMDUGO6AO60pAAWKuwz0SBKurme3r6toqTE1ESM9fu6UPz8k9CiS2YWmtahtnsQBwehwFE3RE7FEnkm3BIEnYX2iJkuV3YIlKGxhtgAVLlzLQTOwAIzRDAABgArIS8QB2OTUgC6SwAcgBBW7-W4AXyUtx8tBeRl03NEtxg5xYvOMwoIos5v35QVEwDpfOK6ES7AF0Xuj2e9QOEtFCqWyp6HD1jFEGoeTygoh1ulN8uA-gIrGo-hpiuM1owJnUpER9uAjsILrdNNtAaDUhYoaWXp9Gn9IrNgf8UcYofqbPqM2g8FE2wWtj5BD8YAF5X89v8N2g6CWKjWfhlMxqOyFAmEYhqfCEInzLN0pBgkxgPNEKgk0wWcxl9XqON0atUzEsOhs31uok2EFYjPQ7DQqAAJN4Negj2DGDprkoORAwGyaUA}{Open in Shinylive}\cr + \if{html}{\out{}} \item example-2\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqUBiXQGEAIgEkAZS9dOAAPWFQRXX4oUiglGLiDYy5qAH1EqBsE2Khk3QB3WlIACxV2TNxdECVdXUY4AEdBWgb2CDFSYmoiRkUIOoBBHwCAGXzGYbHa3WGsAIm5gKUAX37M6HhRCtzbI10CdgUwKdHjquOl4-6AKyIVNIBrOFZtzL3jfjgTKGFSNII-FoogIaTuD2er2AG1gYh2cTkAF03NB0PkVMUjgNorldABeHFxXAzPhCESifG6UnCOEzOqkGBpGDA0QqCQZXLZbH9fq0Ey6dgqcjMSw6Gy2GrY0RlCCsQbodhoVAAEhaVSVytEMh0fVWSjAK0RQA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsBKMtPzOAB6kzP64ul60cKTUrLoAvPZOzrYAZJm67rG+-ozUUBASUTHe8YkpaS6KEADEugDCACIAkgDKzbpwobCoIrr8UKRQSiNjBsZc1AD6k1A2E6NQ07oA7rSkABYq7IvRIEq6uZ7evhBipMTURIz1pwCCrZ0AMuuML+8nui9YnU+-06SgAvvVFtB4KIDqtbEZdAQ-GBvm9yv5gf56gArIgqOYAazgrBhi3hxn4cBMUGEpDmBH4tFEBDmuPxRJJwEhsDEsLGcgAukolGhUOsVNs-BBTosaodfnwhCJRDVFcJeb9TqQYHMYEzRCoJAtVstpbp6vVaCZdOwVORmJYdDZbMczaI9hBWE90OxRQASbzRf2iGQ6B5gpRgUECoA}{Open in Shinylive}\cr + \if{html}{\out{}} } } diff --git a/man/tm_t_crosstable.Rd b/man/tm_t_crosstable.Rd index 2a85fe27e..cc5905b73 100644 --- a/man/tm_t_crosstable.Rd +++ b/man/tm_t_crosstable.Rd @@ -62,6 +62,7 @@ For more examples, please see the vignette "Using cross table" via \code{vignette("using-cross-table", package = "teal.modules.general")}. } \examples{ +\dontshow{if (require("rtables", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # general data example data <- teal_data() data <- within(data, { @@ -106,7 +107,8 @@ app <- init( if (interactive()) { shinyApp(app$ui, app$server) } - +\dontshow{\}) # examplesIf} +\dontshow{if (require("rtables", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # CDISC data example data <- teal_data() data <- within(data, { @@ -153,16 +155,16 @@ app <- init( if (interactive()) { shinyApp(app$ui, app$server) } - +\dontshow{\}) # examplesIf} } \section{Examples in Shinylive}{ \itemize{ \item example-1\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqUBiXVIhrqu-lCkULpwAB6wqCJKAUEGxlzUAPoxUDbRgcFGugDutKQAFirsKbi6IEq6ujCkBCyicVU1dRWmRIy67Fq6KroE7AqErNQDpQNaoiO6A7CTA1IsA3K25RCVldW1jKLAwFoAunsNUOIm6qRt7Bt1O-t7iqu6AL4tV1s7A6iMtDAsrIkA1nBWAMDg1RHAAI6JEQQdgQRhEbKXJpbJZKR73FLQeCiYoZWxZAavCZgJQAKyIKgBQNxKQJxgpVMBrFxjIg1I4RJRJNGYGJszAn2+vw5i3uSjQqAaKjy-QeKV0AF5-BlcC8BMIxEqqhqRLiWpVSDBEqREgQEaJREF6CI5Ws1tQoPQ4H5lQMAMIW+p2J1RPAGtahbUpRJhUjMDSJUSoOB9AP2rGwPRuvnckbxtbgkQabVZ2Om6Oxu32kuO52uqZgADKLvzui0LFovrgiHTDxLawI+UpBC1yobX2bZu7tF7tIy71TmxJB1KccGwzwlfGApmS7mcAWYCWavbHd0eY0cH42vnBCGAvmjEWu-3axgwk0kWT9iczlvd90bX4MmP2ocLgfneJi0KEf7KgAYgAggAMlWrh7va9wdnIQFrKwwYZKGoThmcUYxnGiFrIm8Daly05tneh6kLmtaRoWhGfroZYumR1Z0TRA5NjaLaUZ+XY9n29aNkOAmjmIeJBJO-JgLOvT9AuAoruuKAwJem7XtuqEZva1HgcuPI6fej60M+2rQXB75GZUIFgSekGwfBRnISWLmVC59z3LQJgdCo5ARpoOg2MsLSiIUECsFB6DsJKAAkgi0KUcXgowOiMPczwQGAjx7EAA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsIykUPQiov64ul60cKTUrLoAvPZOzooQAMS6UhBq1Lr8UEG6cAAesKgiSgVFRrpc1AD61VA2VYVQBsYA7rSkABYq7M0RIEq6ujCkBCyinRNTM2OmRIy67Fq6KroEfoSs1OG6-lpheEcoMIf+Uiz+crajEOPjk9OMosDAWgC633NQ4hM6lIK3Yrxmnx+3zS4wAvktwe9Pv5UIxaDAWKwGgBrOCsfy-OaiTwNEQQdgQRhELpghbve5KWFpZrQeCiIbtWy1fyI05KABWRBUOLx7OaXOMguFuNY7KlEBFHB5dNOEWVb1V51R6MxiruaSUaFQcxUvT8T3y7USlqCuARAmEYmtfCEoXNzzqMAapAaBCpolEQRCcHdHt01GCcDySX8AGF-bM7MFKnglh6Stbmg1SqRmBoGqJUHAdmmwyzYHoY2BeeFSx7iSINNaG8WfYXi6Gw88I-Qo9b-ABlKOt3RaFi0ZNwRC1i1d8YEPpCghOpJjtGT32L2jLsXtZHVlUE74REt7A5nY6a-ywK5gG6MfV22dzlsaOD8a2ngj7W-3u5PudnhgYRNAqStkhcADAN0FZ+Bkd9rQcSC6zDExaBKBCkgAMQAQQAGQHVxnw9GEwzkKCPXiJIsxzPM2yLEtiOect4H7A8NRnQDX1IZth3zdtGOg8NI2jc4h0bHi1wnYNp1TJiPQXJcV1HccN0U7cxA5IJ9xrMBfhPXZv3PNUwBOW8bwvO84FuMB7gol8+PID8qzMuShOA6hQJEa1cII5x7K7NCMOc3RfMIlDxlIkjS1ItI0loEw1hUcg6O0EN7l0R5xlEAYIFYHD0HYI0ABJvAiEriUYHRGDSeEIDAWFviAA}{Open in Shinylive}\cr + \if{html}{\out{}} \item example-2\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqUBiXQGEAIgEkAZS9dfihSKF04AA9YVBElUPCDYy5qAH1EqBsEsIijXQB3WlIACxV2TNxdECVdXQBBHwCAGWTdRkaWpQBfRQhM6HhRCtzbfIUwTuaJpQArIhU0gGs4VmHMseN+OBMoYVI0gn5aUQI0+cWVteAB2DER8LkAXTdodDaVYvZakNzdAF5fuFcD8+EIRKIAbowcJ7j86qQYGkDgRGERRKJwvQRN8IHV8bpqFB6HBqFCJl40Rj7MT4nh4fiolDMmloqRmBo0qJUHACLiCQTbvByZMmtN6XiBXVRKTeaQoTKRJzubz+VL8USSWTARMArKNLotCxaLS4IgJiDJerdAQSgsCGIoUbGCbsXBDnbaA71rlgMAJlMJk8nlVRIJ6DL5YCzBZNNYNtUGdbaPwmfkAIRG9DUDiVXQqEoyYqiKrUIgSL3cdgARjkVT5Ex8YTgFt0EwACgB5AJ+AAaGlbHe7feopAmcj61oJjDgpEEjAg7EG9w2wBTUSek6nvUtU90irlcH4Iq8nccADkHABNC1JgUwfa0OJ6QEOFy7qdERjbGfH19OZwP2tExaCiI8oQAMXqZoAlcK0BS3Ak6zvVhmVyVkonZdQDhVBt4MFXJlxFQMJWtA8DUBcicJ5PC901UkRT1JV5WdV0RHNUip1te1HUBVjTQ9HifXCP0AzFIMQ33cNIyhGNLHjUZE3w9V1zaLM4lzXIqhODBdg0L9S3LStqBrCc7ylGc5wXJc7mEqA5DXVNN3M-Edxc6V9XIP82zAWDe1vZSCQfUcnxESDoNgoD1RAsDvKgmC4OtRD8WSrc+j6WgTF0dgVHIDlNB0GxbBqSVRDKCBWHqdB2DQVAABJBFoKparqmVGB0Rg+m6JQwG6J4gA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsIykUPQiov64ul60cKTUrLoAvPZOzooQAMS6AMIAIgCSAMpZuvxQQbpwAB6wqCJKpeVGulzUAPoNUDb1ZVAGxgDutKQAFirsHREgSrq6AII5BQAyfbqM80tKAL5pHdDwouM9tk3+64v+SgBWRCqtANZwrAcdx8b8cCZQwqStBPy0ogIrWutweT2Au1gYkOQTkAF0lEo0KgViohn4IDMOokSj1cNNdHwhKEcUThNCCTNSDBWj8CIwiKJREEQnAMTMObpqME4NQcf4sgymfZgnU8JSOZUcR1WlVSMwNK1RKg4AR2ZyOZD4PywGdwhLOaJearSDijSJFcrVeqNRzufReTqCsaNLotCxaKK4Ih9ZjbRyCMMbgQxDj3YxPazfkHaCHnj1gMBTgtzmA4XCIqJBPQjaakmYLJprC9dFM-f6ObR+FKmgBCd3oOIwqARFTDGRDUQRahECSx7jsACMcgiav8OTKcHCun8AAUAPIFPIADQ007ni5X1FI-jkaQrnPcpEEjAg7D20JewCrlTh+4P23x5f95pNcH4Oqy88cADkHABNX0D0Jb5aFqPQkgcFwn2AohGHedwP0glIYIPExaEqd8cQAMVmRYClcZ9OXvYjUM5eIkhlOUFR+K0xyIzUegvHU9XFBiZlfV0kk42iVXo4D7UdJJ-GdC1TXDSMRB9NjgMDYNQySCSvWjeT4yCRNkw2NMM10LMcxiHEC0sYsjlLA1-RvFYG1qDgJl0AEME+DQ4O7Xt+2oIc93M20jxPM8LzUqA5Gvas728jlH3CjiXXIJCZzAAjlyAg8YFA8CcLwgiyP9dDMLi3D8MIisSI5Er7zSNJaBMXR2BUcgaO0Nk9zMv1RFGCBWFmdB2GRAASbwIj6o1GB0Rg0k2JQwE2OEgA}{Open in Shinylive}\cr + \if{html}{\out{}} } } diff --git a/man/tm_variable_browser.Rd b/man/tm_variable_browser.Rd index 95dfdf0ee..a15553fc8 100644 --- a/man/tm_variable_browser.Rd +++ b/man/tm_variable_browser.Rd @@ -54,7 +54,7 @@ or continuous with a checkbox allowing users to switch how they are treated(if < then the default is discrete, otherwise it is continuous). } \examples{ -\dontshow{if (requireNamespace("sparkline", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (require("sparkline", quietly = TRUE) && require("htmlwidgets", quietly = TRUE) && require("jsonlite", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # general data example data <- teal_data() data <- within(data, { @@ -78,7 +78,7 @@ if (interactive()) { shinyApp(app$ui, app$server) } \dontshow{\}) # examplesIf} -\dontshow{if (requireNamespace("sparkline", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} +\dontshow{if (require("sparkline", quietly = TRUE) && require("htmlwidgets", quietly = TRUE) && require("jsonlite", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)(\{ # examplesIf} # CDISC example data library(sparkline) data <- teal_data() @@ -105,11 +105,11 @@ if (interactive()) { \section{Examples in Shinylive}{ \itemize{ \item example-1\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNruAcrDFUdTh2BTBRIMYAazoIODDcXS9aOFJqVl0AXnsnZ0UIAGJdKTjZXX4oUihdOAAPWFQRJQqqg2MuagB9FqgbZsrqo10Ad1pSAAsVdh7EkCVdXR9aUTbFxmX53RhSAhYVoe3dxlFN4aJ4CFWzi82TKDHxs2pVu4enzYBhAHkAJlXvn5KAC++R60HgommA1sQwIoTASxOeF0YUOewSKLA1woGLCrwm72RYQBYXySjQqFWKjGoUu5QGWXpVVwmz4QhEK2ybOEYlpCwWpBgnS0LFoUHoIk6TCIw1EMj5-IW1HFcGe2TCADVReKRLppbKZGFNgt8ialPlaCZdOwVORmJYdDZbHM6aJJhBWABBdDsCkAEm8iX9csYOkY+SBSjAQIAukA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsKKoLADWdBBw-ri6XrRwpNSsugC89k7OtgBkGbruMb7+ABakMNQA7rT8UqSikdHecQnJqS6Z2bne+WAAVqIkdOS1MQ2JKQ4tSgDEulLhsrr8UKRQunAAHrCoIkoLSwbGXNQA+jtQNtuLy0a65aQFKuwnUSBKuro+tKJ7b4wfL7owpAILE+VwBQMYNQgr1KRHgUKuMLhfxMUFotzM1C+KLRBQxfwAwgB5ABMXyJxKUAF9FBATtB4KIHhdbFcCH4wO8anhdP4wcDav5ERQBWBsejhCLyf4aUo0Kgvio0X4ofMLk1Hn8+EIRJ8UlrhGJla9XsVDloWLQoPQRIcmERSqIZEbja9qFa4JiUv4AGoWq0iXR2h0yfx-V408NKGm0Ey6dgqcjMSw6Gy2Z4q0R3CCsACC6HYcoAJN4okXHYwdIwaZSlGBKQBdIA}{Open in Shinylive}\cr + \if{html}{\out{}} \item example-2\cr - \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNruAcrDFUdTh2BTBRIMYAazoIODDcXS9aOFJqVl0AXnsnZ0UIAGJdAGEAEQBJAGVi3TgAD1hUEV1+KFIoJTomFg4IlhiVOHzW9oNjLmoAfRGoGyUZsd0Ad1pSAAsVdhnEkCVdXQBBUsqAGUXGI9O9w9K7O2dzo7vXCABfYbaoaHhRLc-bIy6AihMCXE4JXRhJ73ML5ABWRBUkyicFYvxmAOM-DgJigwlIkwI-FoogIkwRSJRaOAM2+Yj+7TkAF0lEo0KhFipVqEIPsFtlttc+EIRKIsrphcJ6dd9qQYJMtCxaFB6CJJkwiEtRDIefs9bpqCq4NRxWEAGpKlXNDVamRhGW6fL7fL5WgmXTsFTkZiWHQ2Wy7Xm6UQbCCsA7odjsgAk3kSMe1jB0jHyryUYFeTKAA}{Open in Shinylive}\cr - \if{html}{\out{}} + \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAoksZwAjoNrv2CsKKoLADWdBBw-ri6XrRwpNSsugC89k7OtgBkGbruMb7+ABakMNQA7rT8UqSikdHecQnJqS6Z2bne+WAAVqIkdOS1MQ2JKQ4tSgDEugDCACIAkgDK07pwAB6wqCK6-FCkUEp0TCwcgSFhcIoQu-sGxlzUAPo3UDZKL3e65aQFKuwvURASl0ugAgrNFgAZT6McFQ4Fg2Z2OzOGHg5GuCAAXyuL2g8FE-z2UFsRl0BD8YDhkNq-nRKP8Vy6RBUj2CcFYhJepOM-DgJigwlIjwI-FoogIj2ZrPZnOAeNgYiJ+zkAF0lEo0KhPipaKQ-BAQR8UgCEXwhCJRE1zcIlQiQcVHloWLQoPQRI8mERSqIZAaQQHdNQ3XBqE1-AA1F1u7Zen0yfz23RXEFXK60Ey6dgqcjMSw6Gy2IGG3SiX4QVig9DsLUAEm8UTrvsYOkYVyxSjAWNVQA}{Open in Shinylive}\cr + \if{html}{\out{}} } }