首页
学习
活动
专区
圈层
工具
发布
社区首页 >问答首页 >为不在包中的R6类创建Rd文档文件

为不在包中的R6类创建Rd文档文件
EN

Stack Overflow用户
提问于 2020-10-01 10:03:49
回答 1查看 267关注 0票数 5

我正在尝试创建一些脚本的文档,其中包含一些R6类。例如,我在这里使用了名为"Person“的R6Class:https://www.tidyverse.org/blog/2019/11/roxygen2-7-0-0/

我使用这个函数https://stackoverflow.com/a/59073260/12166017来创建文档,而不需要创建包。是否也可以将其用于R6Classes,或者是否有其他方法来实现这一点?对于上述函数,我总是得到一个错误的R6 Class (Person) without source references.

官方tidyverse博客https://www.tidyverse.org/blog/2019/11/roxygen2-7-0-0/在描述文件中编写Roxygen: list(r6 = FALSE)的解决方案不起作用,因为我没有包,所以没有描述文件。

EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2020-10-04 21:39:49

一种方法是劫持roxygen2 2的一些未导出函数,为文档中的R6类创建块对象,并编写一个Rd文件。然后可以使用tools包解析并写入html。

这是一个非常粗略的概念证明,要求您的R6定义位于一个独立的文件中,并且不使用任何参数来允许保存到特定的位置等,但是可以对其进行调整和扩展以适应:

代码语言:javascript
复制
document_R6 <- function(R_file)
{
  blocks  <- lapply(roxygen2:::tokenize_file(R_file), roxygen2:::block_set_env,
                    env = .GlobalEnv)
  blocks  <- roxygen2:::order_blocks(blocks)
  roclet  <- roxygen2:::roclet("rd")
  my_rd   <- suppressWarnings(roxygen2:::roclet_process(roclet, blocks))
  my_rd   <- my_rd[[1]]$format()
  rd_file <- tempfile()
  writeLines(my_rd, rd_file)
  tools::Rd2HTML(tools::parse_Rd(rd_file), 
                 gsub("\\.R$", ".html", R_file))
}

因此,如果我们有以下文件,摘自您的链接:

Person.R

代码语言:javascript
复制
#' R6 Class representing a person
#'
#' A person has a name and a hair color.
Person <- R6::R6Class("Person",
  public = list(
    #' @field name First or full name of the person.
    name = NULL,

    #' @field hair Hair color of the person.
    hair = NULL,

    #' @description
    #' Create a new person object.
    #' @param name Name.
    #' @param hair Hair color.
    #' @return A new `Person` object.
    initialize = function(name = NA, hair = NA) {
      self$name <- name
      self$hair <- hair
      self$greet()
    },

    #' @description
    #' Change hair color.
    #' @param val New hair color.
    #' @examples
    #' P <- Person("Ann", "black")
    #' P$hair
    #' P$set_hair("red")
    #' P$hair
    set_hair = function(val) {
      self$hair <- val
    },

    #' @description
    #' Say hi.
    greet = function() {
      cat(paste0("Hello, my name is ", self$name, ".\n"))
    }
  )
)

然后我们就可以:

代码语言:javascript
复制
document_R6("Person.R")

以下是与“Person.R”相同目录下呈现的"Person.html“文件的屏幕截图:

票数 7
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/64153144

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档