如何强制执行指定S3方法？解决patchwork与ggsurvfit兼容问题

背景 #

我在自研R包中借助{patchwork}的算术运算符（如|、/）实现图形拼接，为自定义的ggsurvfit类对象导出了适配方法：

"|.ggsurvfit" <- function(e1, e2) {
  build_and_wrap(e1) | build_and_wrap(e2)
}

这段代码会先将ggsurvfit对象转换为ggplot类，再调用patchwork原生的|.ggplot方法完成拼接。

问题场景 #

当用户执行p1 | p2（p1为标准ggplot对象，p2为ggsurvfit对象）时，会触发patchwork的|.ggplot方法，但该方法无法处理ggsurvfit类型的第二个参数，直接报错。我尝试自定义|.ggplot方法适配参数，但始终无法正确调用patchwork的原生方法。

我之前尝试的代码：

"|.ggplot" <- function(e1, e2) {
  e2 <- build_and_wrap(e2) # 处理第二个参数

  # 使用patchwork的`|.ggplot`方法拼接图形
  withr::with_namespace(
    package = "patchwork",
    code = e1 | e2
  )
}

解决方案 #

方法1：直接调用patchwork内部方法 #

S3运算符方法本质是函数，可以通过patchwork:::直接访问其内部的|.ggplot方法，绕过运算符调度逻辑：

"|.ggplot" <- function(e1, e2) {
  # 若第二个参数是ggsurvfit类型，先转换为ggplot
  if (inherits(e2, "ggsurvfit")) {
    e2 <- build_and_wrap(e2)
  }
  
  # 直接调用patchwork原生的|.ggplot方法
  patchwork:::`|.ggplot`(e1, e2)
}

方法2：用getS3method获取方法（更稳妥） #

使用getS3method精准获取patchwork包中ggplot类的|方法，避免直接访问内部对象的潜在风险：

"|.ggplot" <- function(e1, e2) {
  # 预处理ggsurvfit类型的参数
  if (inherits(e2, "ggsurvfit")) {
    e2 <- build_and_wrap(e2)
  }
  
  # 获取patchwork中的|.ggplot方法
  patchwork_pipe <- getS3method("|", "ggplot", envir = asNamespace("patchwork"))
  # 调用方法完成拼接
  patchwork_pipe(e1, e2)
}

原理说明 #

之前用withr::with_namespace的方式失败，是因为运算符调度仍会优先使用当前环境中的方法定义，而直接调用方法函数则能强制执行patchwork的原生逻辑。预处理步骤确保第二个参数转为ggplot类型后，patchwork的方法就能正常处理。

内容的提问来源于stack exchange，提问作者Daniel D. Sjoberg