diff --git a/R/rd.R b/R/rd.R index 63a332167..85376a4d0 100644 --- a/R/rd.R +++ b/R/rd.R @@ -21,6 +21,9 @@ parse_Rd2 <- function(file, ...) { rm_alias <- paste0("\\alias{", rm_alias) lines <- lines[!startsWith(lines, "%")] lines <- lines[!startsWith(lines, "\\alias{A")] + lines <- lines[!startsWith(lines, "\\alias{fN")] + lines <- lines[!startsWith(lines, "\\alias{pwN")] + lines <- lines[!startsWith(lines, "\\alias{fHD")] lines <- lines[rowSums(sapply(rm_alias, startsWith, x = lines, USE.NAMES = FALSE)) <= 0] tmp <- tempfile(fileext = ".Rd") write_lines(substcr(substcr(substcr(substcr(substcr(lines))))), tmp)