From df3fe852c6896168ea9bd69363ee5a98377367af Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?zxBIB=20Lech=C3=B3n=2CMiguel=20=28MED=20BDS=29=20EXTERNAL?=
 <miguel.lechon.ext@boehringer-ingelheim.com>
Date: Sun, 1 Dec 2024 17:25:17 +0100
Subject: [PATCH] Small CM tweak.

---
 R/CM.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/CM.R b/R/CM.R
index d08e566..f47058c 100644
--- a/R/CM.R
+++ b/R/CM.R
@@ -1,4 +1,4 @@
-# YT#VH471af99c9c42d555582282c2f5854aef#VH444ba79a3be691b19e5a661251f7b76a#
+# YT#VH22c1dbc08734141d74f301a9a70503bb#VH471af99c9c42d555582282c2f5854aef#
 CM <- local({ # _C_hecked _M_odule
   message_well <- function(title, contents, color = "f5f5f5") { # repeats #iewahg
     style <- sprintf(r"---(
@@ -195,7 +195,7 @@ CM <- local({ # _C_hecked _M_odule
 
     roxygen_wrapper <- function() { # to keep parameters in the reference docs
       args <- (match.call() |> as.list())[c(-1)]
-      do.call(wrapper, args)
+      do.call(wrapper, args, env = parent.frame())
     }
     formals(roxygen_wrapper) <- formals(module)
     return(roxygen_wrapper)