From ec4b9728735fc3ec81da0eaee9e21fc996bebe23 Mon Sep 17 00:00:00 2001
From: b_falquet <64274616+BFalquet@users.noreply.github.com>
Date: Thu, 29 Aug 2024 09:10:37 +0200
Subject: [PATCH] add library (#389)

an example was failing because %>% was not imported.

thank you for the review

---------

Co-authored-by: Pawel Rucki <12943682+pawelru@users.noreply.github.com>
---
 R/adtteSpec.R            | 3 +++
 R/forestplot.R           | 2 ++
 R/km.R                   | 2 ++
 man/adtteSpecServer.Rd   | 2 ++
 man/h_km_mae_to_adtte.Rd | 1 +
 man/tm_g_forest_tte.Rd   | 2 ++
 man/tm_g_km.Rd           | 2 ++
 7 files changed, 14 insertions(+)

diff --git a/R/adtteSpec.R b/R/adtteSpec.R
index 11f0784a..ea09b999 100644
--- a/R/adtteSpec.R
+++ b/R/adtteSpec.R
@@ -16,6 +16,7 @@
 #'
 #' @export
 #' @examples
+#' library(dplyr)
 #' mae <- hermes::multi_assay_experiment
 #' adtte <- teal.modules.hermes::rADTTE %>%
 #'   dplyr::mutate(CNSR = as.logical(CNSR))
@@ -148,6 +149,8 @@ adtteSpecInput <- function(inputId, # nolint
 #' @export
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' ui <- function(id) {
 #'   ns <- NS(id)
 #'
diff --git a/R/forestplot.R b/R/forestplot.R
index fd013fb9..293378cb 100644
--- a/R/forestplot.R
+++ b/R/forestplot.R
@@ -11,6 +11,8 @@
 #' @export
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' data <- teal_data()
 #' data <- within(data, {
 #'   ADTTE <- teal.modules.hermes::rADTTE %>%
diff --git a/R/km.R b/R/km.R
index 8ba5fadd..f52eefc0 100644
--- a/R/km.R
+++ b/R/km.R
@@ -12,6 +12,8 @@
 #' @export
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' data <- teal_data()
 #' data <- within(data, {
 #'   ADTTE <- teal.modules.hermes::rADTTE %>%
diff --git a/man/adtteSpecServer.Rd b/man/adtteSpecServer.Rd
index 9df84670..ebeb23dd 100644
--- a/man/adtteSpecServer.Rd
+++ b/man/adtteSpecServer.Rd
@@ -74,6 +74,8 @@ and experiment, as numeric and factor columns. The factor column is created by b
 the numeric column according to the quantile cutoffs specified in \code{probs}.
 }
 \examples{
+library(dplyr)
+
 ui <- function(id) {
   ns <- NS(id)
 
diff --git a/man/h_km_mae_to_adtte.Rd b/man/h_km_mae_to_adtte.Rd
index 92ebf0df..e80d32dd 100644
--- a/man/h_km_mae_to_adtte.Rd
+++ b/man/h_km_mae_to_adtte.Rd
@@ -43,6 +43,7 @@ The final gene column names can start with a different string than
 the original gene IDs (or labels), in particular white space and colons are removed.
 }
 \examples{
+library(dplyr)
 mae <- hermes::multi_assay_experiment
 adtte <- teal.modules.hermes::rADTTE \%>\%
   dplyr::mutate(CNSR = as.logical(CNSR))
diff --git a/man/tm_g_forest_tte.Rd b/man/tm_g_forest_tte.Rd
index 556368cf..c05f6d36 100644
--- a/man/tm_g_forest_tte.Rd
+++ b/man/tm_g_forest_tte.Rd
@@ -123,6 +123,8 @@ This module provides an interactive survival forest plot.
 
 }}
 \examples{
+library(dplyr)
+
 data <- teal_data()
 data <- within(data, {
   ADTTE <- teal.modules.hermes::rADTTE \%>\%
diff --git a/man/tm_g_km.Rd b/man/tm_g_km.Rd
index 76f52305..cb0d9c29 100644
--- a/man/tm_g_km.Rd
+++ b/man/tm_g_km.Rd
@@ -114,6 +114,8 @@ This teal module produces a grid style \code{Kaplan-Meier} plot for data with
 
 }}
 \examples{
+library(dplyr)
+
 data <- teal_data()
 data <- within(data, {
   ADTTE <- teal.modules.hermes::rADTTE \%>\%