Prep for CRAN submission

.Rbuildignore

@@ -9,3 +9,4 @@
 ^man-md$
 ^fyi\.md$
 ^README\.md$
+^cran-comments\.md$

R/RcppExports.R

@@ -1,12 +1,18 @@
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
-cpp_format_pipeline <- function(code, indent_str, wrap, expand_if, brace_style, line_limit, function_space, control_braces) {
-    .Call(`_rformat_cpp_format_pipeline`, code, indent_str, wrap, expand_if, brace_style, line_limit, function_space, control_braces)
+cpp_format_pipeline <- function(code, indent_str, wrap, expand_if,
+                                brace_style, line_limit, function_space,
+                                control_braces) {
+    .Call(`_rformat_cpp_format_pipeline`, code, indent_str, wrap,
+          expand_if, brace_style, line_limit, function_space,
+          control_braces)
 }
 
-cpp_format_all <- function(code, indent_str, wrap, expand_if, brace_style, line_limit, function_space, control_braces) {
-    .Call(`_rformat_cpp_format_all`, code, indent_str, wrap, expand_if, brace_style, line_limit, function_space, control_braces)
+cpp_format_all <- function(code, indent_str, wrap, expand_if, brace_style,
+                           line_limit, function_space, control_braces) {
+    .Call(`_rformat_cpp_format_all`, code, indent_str, wrap, expand_if,
+          brace_style, line_limit, function_space, control_braces)
 }
 
 cpp_set_trace <- function(enable) {

R/ast_collapse.R

@@ -75,7 +75,7 @@ collapse_calls <- function(terms, indent_str, line_limit = 80L) {
             close_line_toks <- line_index_get(lidx, close_line)
             suffix_idx <- close_line_toks[
                 terms$out_order[close_line_toks] >
-                    terms$out_order[close_idx]]
+                terms$out_order[close_idx]]
             if (length(suffix_idx) > 0L) {
                 suffix_toks <- terms$token[suffix_idx]
                 # Determine which suffix tokens to keep.
@@ -142,8 +142,8 @@ collapse_calls <- function(terms, indent_str, line_limit = 80L) {
             # Remaining tokens on close_line (not in call or suffix)
             remaining_close <- close_line_toks[
                 terms$out_order[close_line_toks] >
-                    terms$out_order[close_idx] &
-                    !close_line_toks %in% suffix_idx]
+                terms$out_order[close_idx] &
+                !close_line_toks %in% suffix_idx]
 
             # If there are remaining tokens, check if everything
             # (call + suffix + remaining) would fit on one line.
@@ -202,3 +202,4 @@ collapse_calls <- function(terms, indent_str, line_limit = 80L) {
 
     terms
 }
+

R/ast_wrap.R

@@ -447,8 +447,8 @@ wrap_long_calls <- function(terms, indent_str, wrap = "paren",
             if (last_offset > 0L) {
                 trailing <- line_idx[
                     terms$out_order[line_idx] >
-                        terms$out_order[close_idx] &
-                        !line_idx %in% all_call_idx]
+                    terms$out_order[close_idx] &
+                    !line_idx %in% all_call_idx]
                 terms$out_line[trailing] <-
                 call_line + last_offset
             }
@@ -462,3 +462,4 @@ wrap_long_calls <- function(terms, indent_str, wrap = "paren",
 
     terms
 }
+

R/rformat.R

@@ -32,7 +32,9 @@
 #' rformat("x <- if (a) b else c", expand_if = TRUE)
 #'
 #' # Wrap long function signatures (default: paren-aligned)
-#' long_sig <- "f <- function(alpha, beta, gamma, delta, epsilon, zeta, eta, theta, iota, kappa) {\n    1\n}"
+#' long_sig <- paste0(
+#'     "f <- function(alpha, beta, gamma, delta, ",
+#'     "epsilon, zeta, eta) {\n    1\n}")
 #' cat(rformat(long_sig), sep = "\n")
 #'
 #' # Wrap with fixed 8-space continuation indent

R/zzz_rcpp.R

@@ -1,3 +1,4 @@
 #' @useDynLib rformat, .registration = TRUE
 #' @importFrom Rcpp sourceCpp
 NULL
+

cran-comments.md

@@ -0,0 +1,18 @@
+## Test environments
+
+* Ubuntu 24.04 LTS, R 4.5.2
+* R-hub (via win-builder)
+
+## R CMD check results
+
+0 errors | 0 warnings | 2 notes
+
+* New submission.
+* Non-portable compilation flags from system R configuration (not
+  package-specific).
+
+## Additional testing
+
+Stress tested against all R files from 126 CRAN and base R packages
+with randomized style parameters: 0 parse failures, 0 idempotency
+exceptions.

man/rformat.Rd

@@ -51,7 +51,9 @@ rformat("if(x>0) y<-1", control_braces = TRUE)
 rformat("x <- if (a) b else c", expand_if = TRUE)
 
 # Wrap long function signatures (default: paren-aligned)
-long_sig <- "f <- function(alpha, beta, gamma, delta, epsilon, zeta, eta, theta, iota, kappa) {\n    1\n}"
+long_sig <- paste0(
+    "f <- function(alpha, beta, gamma, delta, ",
+    "epsilon, zeta, eta) {\n    1\n}")
 cat(rformat(long_sig), sep = "\n")
 
 # Wrap with fixed 8-space continuation indent