From 1db24ad1b44da074e26b2fe7c0bf10c50d3c9749 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Ver=C3=ADssimo?=
 <211358+averissimo@users.noreply.github.com>
Date: Tue, 17 Dec 2024 11:24:52 +0000
Subject: [PATCH] fix: remove rlang usage

---
 R/tm_a_mmrm.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/tm_a_mmrm.R b/R/tm_a_mmrm.R
index 02b18b96f..5b784a5ab 100644
--- a/R/tm_a_mmrm.R
+++ b/R/tm_a_mmrm.R
@@ -1468,8 +1468,8 @@ srv_mmrm <- function(id,
     })
 
     decorated_tables_q <- lapply(
-      rlang::set_names(
-        c("lsmeans_table", "diagnostic_table", "fixed_effects_table", "covariance_table")
+      stats::setNames(
+        nm = c("lsmeans_table", "diagnostic_table", "fixed_effects_table", "covariance_table")
       ),
       function(output_function) {
         srv_decorate_teal_data(
@@ -1485,7 +1485,7 @@ srv_mmrm <- function(id,
     decorated_objs_q <- c(
       decorated_tables_q,
       lapply(
-        rlang::set_names(c("lsmeans_plot", "diagnostic_plot")),
+        setNames(nm = c("lsmeans_plot", "diagnostic_plot")),
         function(output_function) {
           srv_decorate_teal_data(
             id = sprintf("d_%s", output_function),