R/rd-backref.R

In roxygen2: In-Line Documentation for R

#' @export
roxy_tag_parse.roxy_tag_backref <- function(x) {
  tag_value(x)
}

#' @export
roxy_tag_rd.roxy_tag_backref <- function(x, base_path, env) {
  rd_section("backref", x$val)
}

#' @export
format.rd_section_backref <- function(x, ...) {
  filename <- unique(x$value)
  filename <- file.path(
    basename(dirname(filename)),
    basename(filename),
    fsep = "/"
  )

  lines <- strwrap(
    paste0("Please edit documentation in ", paste(filename, collapse = ", ")),
    initial = "% ",
    prefix = "%   ",
    width = 80
  )

  paste0(lines, collapse = "\n")
}