Revert "satisfy the linter"

This reverts commit 5612df0.

Author: dajmcdon

tests/testthat/test-key_colnames.R

@@ -85,17 +85,11 @@ test_that("`key_colnames` on `epi_df`s and similar tibbles works as expected", {
 
   # We can exclude keys:
   expect_equal(
-    key_colnames(
-      gat_tbl, geo_keys = "geo_value", other_keys = "age_group",
-      time_keys = "time_value", exclude = c("time_value")
-    ),
+    key_colnames(gat_tbl, geo_keys = "geo_value", other_keys = "age_group", time_keys = "time_value", exclude = c("time_value")),
     c("geo_value", "age_group")
   )
   expect_equal(
-    key_colnames(
-      gat_tbl, geo_keys = "geo_value", other_keys = "age_group",
-      time_keys = "time_value", exclude = c("geo_value", "time_value")
-    ),
+    key_colnames(gat_tbl, geo_keys = "geo_value", other_keys = "age_group", time_keys = "time_value", exclude = c("geo_value", "time_value")),
     c("age_group")
   )
   expect_equal(
@@ -109,10 +103,7 @@ test_that("`key_colnames` on `epi_df`s and similar tibbles works as expected", {
 
   # Using `extra_keys =` is soft-deprecated and routes to `other_keys =`:
   expect_warning(
-    gat_tbl_extra_keys_res <- key_colnames(
-      gat_tbl, geo_keys = "geo_value",
-      time_keys = "time_value", extra_keys = "age_group"
-    ),
+    gat_tbl_extra_keys_res <- key_colnames(gat_tbl, geo_keys = "geo_value", time_keys = "time_value", extra_keys = "age_group"),
     class = "lifecycle_warning_deprecated"
   )
   expect_equal(gat_tbl_extra_keys_res, c("geo_value", "age_group", "time_value"))