Format with air

Author: mns-nordicals

R/r2f-matrix.R

@@ -118,10 +118,20 @@ register_r2f_handler(
       scope,
       left = left,
       right = right,
-      left_axis = if (left_rank == 1) NULL else if (left_trans == "N") 2L else
-        1L,
-      right_axis = if (right_rank == 1) NULL else if (right_trans == "N") 1L
-      else 2L
+      left_axis = if (left_rank == 1) {
+        NULL
+      } else if (left_trans == "N") {
+        2L
+      } else {
+        1L
+      },
+      right_axis = if (right_rank == 1) {
+        NULL
+      } else if (right_trans == "N") {
+        1L
+      } else {
+        2L
+      }
     )
 
     # Matrix-Matrix

tests/testthat/test-blas-guards.R

@@ -12,7 +12,11 @@ test_that("matrix-vector %*% guards an unknown vector length", {
   qfn <- expect_no_warning(quick(fn))
   expect_equal(qfn(diag(3), as.double(1:3)), diag(3) %*% 1:3)
   # was: dgemv read past the end of x, returning garbage
-  expect_error(qfn(diag(3), as.double(1:2)), "non-conformable arguments in %*%", fixed = TRUE)
+  expect_error(
+    qfn(diag(3), as.double(1:2)),
+    "non-conformable arguments in %*%",
+    fixed = TRUE
+  )
 })
 
 test_that("vector-matrix %*% guards an unknown vector length", {
@@ -22,7 +26,11 @@ test_that("vector-matrix %*% guards an unknown vector length", {
   }
   qfn <- expect_no_warning(quick(fn))
   expect_equal(qfn(as.double(1:3), diag(3)), t(as.double(1:3)) %*% diag(3))
-  expect_error(qfn(as.double(1:5), diag(3)), "non-conformable arguments in %*%", fixed = TRUE)
+  expect_error(
+    qfn(as.double(1:5), diag(3)),
+    "non-conformable arguments in %*%",
+    fixed = TRUE
+  )
 })
 
 test_that("triangular solve guards squareness and RHS length", {