如何定义引用另一个包中的 S4 类的包示例

Question

我正在构建一个扩展另一个包crmPack 的功能的包。 crmPack 使用 S4 类。我正在使用roxygen 来记录我的新包。在我的新包上运行 devtools::check() 时出现错误：

> checking examples ... ERROR
  Running examples in ‘crmreporter-Ex.R’ failed
  The error most likely occurred in:

  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: summariseIncrementsRule
  > ### Title: Create a Tibble Describing an Increments Rule
  > ### Aliases: summariseIncrementsRule
  > 
  > ### ** Examples
  > 
  > if (requireNamespace("crmPack")) {
  +   inc <- IncrementsRelative(intervals=c(0, 20), increments=c(1, 0.33))
  +   summariseIncrementsRule("inc")
  + }
  Error in IncrementsRelative(intervals = c(0, 20), increments = c(1, 0.33)) : 
    could not find function "IncrementsRelative"
  Execution halted

以下是roxygen cmets 的相关部分以及相关泛型的定义：

#' @examples
#' if (requireNamespace("crmPack")) {
#'   inc <- IncrementsRelative(intervals=c(0, 20), increments=c(1, 0.33))
#'   summariseIncrementsRule(inc)
#' }
#' @import crmPack
#' @importFrom methods .valueClassTest
#' @export
setGeneric("summariseIncrementsRule", valueClass = "tbl", function(object) {
  standardGeneric("summariseIncrementsRule")
})

我也试过了

#' @importFrom crmPack IncrementsRelative

在roxygen cmets 中为泛型，结果相同。

crmPack 出现在我的DESCRIPTION 文件的Imports: 部分，我的NAMSEPACE 文件包括import(crmPack)。

我应该如何记录我的泛型以使其示例正确运行？ [从控制台运行时会发生什么。]

Answer 1

继@Waldi 的问题之后，我尝试了：

#' @examples
#' if (requireNamespace("crmPack")) {
#'   inc <- crmPack::IncrementsRelative(intervals=c(0, 20), increments=c(1, 0.33))
#'   summariseIncrementsRule(inc)
#' }

这运行没有错误。我还能够从roxygen cmets 中删除#' @import crmPack，但删除#' @importFrom methods .valueClassTest 导致devtools::check() 发出警告。