Wrap long reject/print

Author: WardBrian

knitr/car-iar-poisson/update_2021_02/bym2.stan

@@ -36,8 +36,8 @@ functions {
    */
   real standard_icar_lpdf(vector phi, array[,] int adjacency) {
     if (size(adjacency) != 2) {
-      reject("require 2rows for adjacency array;", " found rows = ", size(
-      adjacency));
+      reject("require 2rows for adjacency array;", " found rows = ",
+             size(adjacency));
     }
     return soft_ctr_std_icar_lpdf(phi | phi[adjacency[1]], phi[adjacency[2]]);
   }

knitr/car-iar-poisson/update_2021_02/bym2_islands.stan

@@ -38,13 +38,16 @@ functions {
     int num_edges = dims(adjacency)[2];
     int num_comps = size(edge_cts);
     if (size(adjacency) != 2) {
-      reject("require 2 rows for adjacency array;", " found rows = ", size(
-      adjacency));
+      reject("require 2 rows for adjacency array;", " found rows = ",
+             size(adjacency));
     }
     if (!(num_nodes == dims(node_idxs)[2] && size(node_cts) == size(edge_cts)
           && size(node_cts) == size(node_idxs)
           && size(edge_cts) == size(edge_idxs))) {
-      reject("arguments have size mismatch, expecting ", num_comps, " rows for node_cts edge_cts, node_idxs, and edge_idxs,", num_nodes, " elements in phi and columns of node_idxs, and ", num_edges, " columns of edge_idxs.");
+      reject("arguments have size mismatch, expecting ", num_comps,
+             " rows for node_cts edge_cts, node_idxs, and edge_idxs,",
+             num_nodes, " elements in phi and columns of node_idxs, and ",
+             num_edges, " columns of edge_idxs.");
     }
 
     real total = 0;

regression_tests/mother.stan

@@ -211,10 +211,12 @@ functions {
     abs_diff = fabs(x - y);
     avg_scale = (fabs(x) + fabs(y)) / 2;
     if ((abs_diff / avg_scale) > max_) {
-      reject("user-specified rejection, difference above ", max_, " x:", x, " y:", y);
+      reject("user-specified rejection, difference above ", max_, " x:", x,
+             " y:", y);
     }
     if ((abs_diff / avg_scale) < min_) {
-      reject("user-specified rejection, difference below ", min_, " x:", x, " y:", y);
+      reject("user-specified rejection, difference below ", min_, " x:", x,
+             " y:", y);
     }
     return abs_diff / avg_scale;
   }