Format with air

Author: mns-nordicals

tests/testthat/test-example-convolve.R

@@ -11,7 +11,7 @@ test_that("convolve", {
     ab <- double(length(a) + length(b) - 1)
     for (i in seq_along(a)) {
       for (j in seq_along(b)) {
-        ab[i + j - 1] = ab[i + j - 1] + a[i] * b[j]
+        ab[i + j - 1] <- ab[i + j - 1] + a[i] * b[j]
       }
     }
     ab

tests/testthat/test-loops.R

@@ -39,7 +39,7 @@ test_that("break/for", {
   fn <- function(x) {
     declare(type(x = integer(1)))
     for (i in 1:10) {
-      x = x + 1L
+      x <- x + 1L
       if (x >= 5L) {
         break
       }
@@ -55,7 +55,7 @@ test_that("while", {
   fn <- function(x) {
     declare(type(x = integer(1)))
     while (x < 5L) {
-      x = x + 1L
+      x <- x + 1L
     }
     x
   }

tests/testthat/test-size-constraint.R

@@ -5,7 +5,7 @@ skip_on_cran()
 test_that("size constraint", {
   fn <- function(a, b) {
     declare(type(a = double(n)), type(b = double(n + 1)))
-    a = sum(b)
+    a <- sum(b)
     a
   }