closed parenthisis

Author: Mukulyadav2004

.ci/atime/tests.R

@@ -286,42 +286,42 @@ test.list <- atime::atime_test_list(
     Slow = "548410d23dd74b625e8ea9aeb1a5d2e9dddd2927",   # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/548410d23dd74b625e8ea9aeb1a5d2e9dddd2927)
     Fast = "c0b32a60466bed0e63420ec105bc75c34590865e"),  # Commit in the PR (https://github.com/Rdatatable/data.table/pull/7144/commits) that uses a much faster implementation
 
-    # Test case adapted from https://github.com/Rdatatable/data.table/issues/4177 which is where the issue was reported.
-    # Fixed in https://github.com/Rdatatable/data.table/pull/7236
-   "fwrite select parameter improved in #4177 (N rows and 5 columns, select a,b,c)" = atime::atime_test(
-      setup = {
-        set.seed(1L)
-        DT = data.table(a=rnorm(N), b=rnorm(N), c=rnorm(N), d=rnorm(N), e=rnorm(N))
-        temp_file = tempfile()
-      },
-      expr = {
-        has_select = "select" %chin% names(formals(data.table::fwrite))
-        if (has_select) {
-          data.table::fwrite(DT, temp_file, select = c("a","b","c"))
-        } else {
-          data.table::fwrite(DT[, c("a","b","c"), with = FALSE], temp_file)
-        }
-      },
-      Slow = "66cb6d2393cef30083b444346a7600a079207806",   # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/66cb6d2393cef30083b444346a7600a079207806)
-      Fast = "1887699fe965b5aa1fb8cb16b5507b7a5cbf5c85",   # Commit in the PR (https://github.com/Rdatatable/data.table/pull/4177/commits) that adds select parameter
+  # Test case adapted from https://github.com/Rdatatable/data.table/issues/4177 which is where the issue was reported.
+  # Fixed in https://github.com/Rdatatable/data.table/pull/7236
+  "fwrite select parameter improved in #4177 (N rows and 5 columns, select a,b,c)" = atime::atime_test(
+    setup = {
+      set.seed(1L)
+      DT = data.table(a=rnorm(N), b=rnorm(N), c=rnorm(N), d=rnorm(N), e=rnorm(N))
+      temp_file = tempfile()
+    },
+    expr = {
+      has_select = "select" %chin% names(formals(data.table::fwrite))
+      if (has_select) {
+        data.table::fwrite(DT, temp_file, select = c("a","b","c"))
+      } else {
+        data.table::fwrite(DT[, c("a","b","c"), with = FALSE], temp_file)
+      }
+    },
+    Slow = "66cb6d2393cef30083b444346a7600a079207806",   # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/66cb6d2393cef30083b444346a7600a079207806)
+    Fast = "1887699fe965b5aa1fb8cb16b5507b7a5cbf5c85"),   # Commit in the PR (https://github.com/Rdatatable/data.table/pull/4177/commits) that adds select parameter
 
-    # Wide case: 1 row, N columns; select a single column
-    "fwrite select parameter improved in #4177 (N columns and 1 row, select 1)" = atime::atime_test(
-      setup = {
-        DT = data.table(t(1:N))
-        temp_file = tempfile()
-        select_idx = 1L
-      },
-      expr = {
-        has_select = "select" %chin% names(formals(data.table::fwrite))
-        if (has_select) {
-          data.table::fwrite(DT, temp_file, select = select_idx)
-        } else {
-          data.table::fwrite(DT[, select_idx, with = FALSE], temp_file)
-        }
-      },
-      Slow = "66cb6d2393cef30083b444346a7600a079207806",     # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/66cb6d2393cef30083b444346a7600a079207806)
-      Fast = "1887699fe965b5aa1fb8cb16b5507b7a5cbf5c85",     # Commit in the PR (https://github.com/Rdatatable/data.table/pull/4177/commits) that adds select parameter
+  # Wide case: 1 row, N columns; select a single column
+  "fwrite select parameter improved in #4177 (N columns and 1 row, select 1)" = atime::atime_test(
+    setup = {
+      DT = data.table(t(1:N))
+      temp_file = tempfile()
+      select_idx = 1L
+    },
+    expr = {
+      has_select = "select" %chin% names(formals(data.table::fwrite))
+      if (has_select) {
+        data.table::fwrite(DT, temp_file, select = select_idx)
+      } else {
+        data.table::fwrite(DT[, select_idx, with = FALSE], temp_file)
+      }
+    },
+    Slow = "66cb6d2393cef30083b444346a7600a079207806",     # Parent of the first commit in the PR (https://github.com/Rdatatable/data.table/commit/66cb6d2393cef30083b444346a7600a079207806)
+    Fast = "1887699fe965b5aa1fb8cb16b5507b7a5cbf5c85"),     # Commit in the PR (https://github.com/Rdatatable/data.table/pull/4177/commits) that adds select parameter
 
     tests=extra.test.list)
 # nolint end: undesirable_operator_linter.