Don't describe initializers in the exported function.

Author: lorenzwalthert

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: styler
-Title: Non-Invasive Pretty Printing of R code
+Title: Non-Invasive Pretty Printing of R Code
 Version: 1.0.0
 Authors@R: c(person("Kirill", "Müller", role = c("aut"), email = "[email protected]"),
   person("Lorenz", "Walthert", role = c("cre", "aut"), email = "[email protected]"))

R/initialize.R

@@ -22,7 +22,12 @@ initialize_default_attributes <- function(pd_flat) {
   init_pd
 }
 
-#' @describeIn initialize_default_attributes Initializes `newlines` and `lag_newlines`.
+#' Initialize attributes
+#'
+#' @name initialize_attributes
+NULL
+
+#' @describeIn initialize_attributes Initializes `newlines` and `lag_newlines`.
 initialize_newlines <- function(pd_flat) {
   pd_flat$line3 <- lead(pd_flat$line1, default = tail(pd_flat$line2, 1))
   pd_flat$newlines <- pd_flat$line3 - pd_flat$line2
@@ -31,7 +36,7 @@ initialize_newlines <- function(pd_flat) {
   pd_flat
 }
 
-#' @describeIn initialize_default_attributes Initializes `spaces`.
+#' @describeIn initialize_attributes Initializes `spaces`.
 initialize_spaces <- function(pd_flat) {
   pd_flat$col3 <- lead(pd_flat$col1, default = tail(pd_flat$col2, 1) + 1L)
   pd_flat$col2_nl <- if_else(pd_flat$newlines > 0L,
@@ -48,7 +53,7 @@ remove_attributes <- function(pd_flat, attributes) {
   pd_flat
 }
 
-#' @describeIn initialize_default_attributes Initializes `multi_line`.
+#' @describeIn initialize_attributes Initializes `multi_line`.
 initialize_multi_line <- function(pd_flat) {
   nrow <- nrow(pd_flat)
   pd_flat$multi_line <- if_else(pd_flat$terminal,
@@ -58,21 +63,21 @@ initialize_multi_line <- function(pd_flat) {
   pd_flat
 }
 
-#' @describeIn initialize_default_attributes Initializes `indention_ref_ind`.
+#' @describeIn initialize_attributes Initializes `indention_ref_ind`.
 initialize_indention_ref_pos_id <- function(pd_flat) {
   pd_flat$indention_ref_pos_id <- NA
   pd_flat
 }
 
-#' @describeIn initialize_default_attributes Initializes `indent`.
+#' @describeIn initialize_attributes Initializes `indent`.
 initialize_indent <- function(pd_flat) {
   if (!("indent" %in% names(pd_flat))) {
     pd_flat$indent <- 0
   }
   pd_flat
 }
 
-#' @describeIn initialize_default_attributes validates the parse data.
+#' @describeIn initialize_attributes validates the parse data.
 validate_parse_data <- function(pd_flat) {
   if (any(pd_flat$spaces < 0L)) {
     stop("Invalid parse data")