Add message if mr.raps less than 0.4.3

remlapmot · remlapmot · commit 48b8db7291f6 · 2025-10-31T15:02:23.000Z
diff --git a/R/mr.R b/R/mr.R
@@ -1079,6 +1079,10 @@ mr_raps <- function(b_exp, b_out, se_exp, se_out, parameters = default_parameter
     )
   }
 
+  if (utils::packageVersion('mr.raps') < '0.4.3') {
+    message(paste("The version of mr.raps is", utils::packageVersion('mr.raps'), "please consider updating to version 0.4.3 or higher, e.g., install.packages('mr.raps', repos = c('https://mrcieu.r-universe.dev', 'https://cloud.r-project.org')) "))
+  }
+
   data <- data.frame(
     beta.exposure = b_exp,
     beta.outcome = b_out,

Original file line number	Diff line number	Diff line change
`@@ -1079,6 +1079,10 @@ mr_raps <- function(b_exp, b_out, se_exp, se_out, parameters = default_parameter`
`1079`	`1079`	`)`
`1080`	`1080`	`}`
`1081`	`1081`
	`1082`	`+ if (utils::packageVersion('mr.raps') < '0.4.3') {`
	`1083`	`+ message(paste("The version of mr.raps is", utils::packageVersion('mr.raps'), "please consider updating to version 0.4.3 or higher, e.g., install.packages('mr.raps', repos = c('https://mrcieu.r-universe.dev', 'https://cloud.r-project.org')) "))`
	`1084`	`+ }`
	`1085`	`+`
`1082`	`1086`	`data <- data.frame(`
`1083`	`1087`	`beta.exposure = b_exp,`
`1084`	`1088`	`beta.outcome = b_out,`