Run styler (#2543)

* Run formatter on source code

* revert two styler changes

Author: IndrajeetPatil

R/implicit_integer_linter.R

@@ -62,7 +62,7 @@ implicit_integer_linter <- function(allow_colon = FALSE) {
     is_negative <- !is.na(xml_find_first(number_expr, "parent::expr/preceding-sibling::OP-MINUS"))
 
     lint_message <-
-      sprintf("Use %1$dL or %1$d.0 to avoid implicit integers.", ((-1L) ^ is_negative) * as.integer(number))
+      sprintf("Use %1$dL or %1$d.0 to avoid implicit integers.", ((-1L)^is_negative) * as.integer(number))
 
     xml_nodes_to_lints(
       number_expr,

R/unnecessary_nesting_linter.R

@@ -197,7 +197,7 @@ unnecessary_nesting_linter <- function(
     collapse = " | "
   )
 
-  unnecessary_else_brace_xpath <-  "//IF/parent::expr[parent::expr[preceding-sibling::ELSE and count(expr) = 1]]"
+  unnecessary_else_brace_xpath <- "//IF/parent::expr[parent::expr[preceding-sibling::ELSE and count(expr) = 1]]"
 
   Linter(linter_level = "expression", function(source_expression) {
     xml <- source_expression$xml_parsed_content