r - 记录 ggplot2 统计扩展 - devtools::document() 未创建 packagename-ggproto.Rd

Question

我正在创建一个包，其中将包含新的 ggplot2 统计信息。

我正在使用 ggplot2::ggproto 来创建新的统计数据，但我在使用 roxygen2 的文档时遇到问题。运行 devtools::document() 后，我得到:

mypackagename-ggproto.Rd is missing name/title. Skipping

我尝试遵循其他包的示例(例如 here 、 here 和 here )，但我遇到了同样的问题。作为一个最小的可重现示例，我提供了 stat-test.R 文件的以下内容:

#' @title My Statistic
#'
#' @description blah blah
#'
#' @param ... other arguments.
#' @param na.rm a logical value indicating ...
#'
#' @export
#' 
stat_test <- function(mapping = NULL, data = NULL, geom = "segment", 
                     position = "identity", na.rm = FALSE, 
                     linetype="dotted", show.legend = NA, 
                     inherit.aes = TRUE, ...) {
  ggplot2::layer(
    stat = StatTEST, 
    data = data, 
    mapping = mapping, 
    geom = geom, 
    position = position, 
    show.legend = show.legend, 
    inherit.aes = inherit.aes,
    params = list(na.rm = na.rm, linetype = linetype, ...)
  )
}

#' @rdname mypackagename-ggproto
#' @format NULL
#' @usage NULL
#' @export
StatTEST <- ggplot2::ggproto("StatTEST", ggplot2::Stat,
                       compute_group = function(data, scales, ...) {
                         ## Compute the line segment endpoints

                         data[nrow(data), c("from", "to")] <- 
                           c(
                             data[1, "from"], data[1, "to"]
                             )

                         x = data[data$from, 1]
                         y = data[data$from, 2]
                         xend = data[data$to, 1]
                         yend = data[data$to, 2]

                         data.frame(x=x, y=y, xend=xend, yend=yend)

                       },
                       required_aes = c("x", "y", "from", "to")
 )

我读了 roxygen2 Generating Rd Files小插图也是如此，但我找不到解决方案。我不明白为什么 #' @rdname mypackagename-ggproto 没有生成我的 mypackagename-ggproto.Rd 文件。

如果有任何帮助，我将不胜感激。

观看信息:

R version 3.5.1 (2018-07-02)
Platform: x86_64-suse-linux-gnu (64-bit)
Running under: openSUSE Leap 15.0

Matrix products: default
BLAS: /usr/lib64/R/lib/libRblas.so
LAPACK: /usr/lib64/R/lib/libRlapack.so

locale:
 [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C               
LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8     
LC_MONETARY=en_US.UTF-8   
 [6] LC_MESSAGES=en_US.UTF-8    LC_PAPER=en_US.UTF-8       LC_NAME=C                  
LC_ADDRESS=C               LC_TELEPHONE=C            
[11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] emstreeR_1.0

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.18         pillar_1.3.0         compiler_3.5.1       
plyr_1.8.4           bindr_0.1.1          tools_3.5.1          
digest_0.6.15       
 [8] memoise_1.1.0        tibble_1.4.2         gtable_0.2.0         
pkgconfig_2.0.1      rlang_0.2.1          rstudioapi_0.7       
commonmark_1.5      
[15] yaml_2.2.0           bindrcpp_0.2.2       withr_2.1.2          
dplyr_0.7.6          stringr_1.3.1        roxygen2_6.1.0       xml2_1.2.0          
[22] desc_1.2.0           devtools_1.13.6      rprojroot_1.3-2      
grid_3.5.1           tidyselect_0.2.4     scatterplot3d_0.3-41 glue_1.3.0          
[29] R6_2.2.2             ggplot2_3.0.0        purrr_0.2.5          
magrittr_1.5         backports_1.1.2      scales_0.5.0         
assertthat_0.2.0    
[36] colorspace_1.3-2     stringi_1.2.4        lazyeval_0.2.1       
munsell_0.5.0        crayon_1.3.4

Answer 1

@rdname 标记将函数的文档与已存在的 doc 文件相关联，但不能用于创建新文件。如果你看Generating Rd Files Vignette你会发现他们总是使用 @rdname 将函数的文档链接到现有文件:

在下面的示例中，add 函数已正常记录。通过使用@rdname add，times函数将被记录在与add

相同的文件中

#' Basic arithmetic
#'
#' @param x,y numeric vectors.
add <- function(x, y) x + y

#' @rdname add
times <- function(x, y) x * y

如果您不想围绕单个函数构建文档文件，则仍然需要在使用 @rdname 将函数与其关联之前创建该文件。您可以通过使用 @name 标记创建并记录虚拟函数来实现此目的。然后，您可以使用 @rdname 在同一虚拟文件中记录函数:

#' Basic arithmetic
#'
#' @param x,y numeric vectors.
#' @name arith
NULL

#' @rdname arith
add <- function(x, y) x + y

#' @rdname arith
times <- function(x, y) x * y