clean keyword and brace related lints

Author: IndrajeetPatil

.lintr

@@ -8,6 +8,8 @@ linters: linters_with_tags(
     line_length_linter(120L),
     namespace_linter = NULL,
     nested_ifelse_linter = NULL,
+    # TODO: remove this once the lint message is fixed
+    nzchar_linter = NULL,
     object_name_linter = NULL,
     object_length_linter(70L),
     object_overwrite_linter = NULL,

R/io.R

@@ -32,21 +32,17 @@ transform_utf8_one <- function(path, fun, dry) {
       identical <- identical_content && !file_with_info$missing_EOF_line_break
       if (!identical) {
         switch(dry,
-          "fail" = {
-            rlang::abort(
-              paste0(
-                "File `", path, "` would be modified by styler and argument dry",
-                " is set to 'fail'."
-              ),
-              class = "dryError"
-            )
-          },
-          "on" = {
+          fail = rlang::abort(
+            paste0(
+              "File `", path, "` would be modified by styler and argument dry",
+              " is set to 'fail'."
+            ),
+            class = "dryError"
+          ),
+          on = {
             # don't do anything
           },
-          "off" = {
-            write_utf8(new, path)
-          },
+          off = write_utf8(new, path),
           {
             # not implemented
           }