fix styling of all R scripts

.github/styler.R

@@ -5,32 +5,32 @@ library("styler")
 
 parser <- ArgumentParser(description = "Call styler")
 parser$add_argument("dir",
-  metavar = "DIR", type = "character",
-  help = "File to parse"
+    metavar = "DIR", type = "character",
+    help = "File to parse"
 )
 parser$add_argument("--dry",
-  choices = c("off", "on"), default = "on"
+    choices = c("off", "on"), default = "on"
 )
 args <- parser$parse_args()
 
 file_info <- file.info(args$dir)
 is_directory <- file_info$isdir
 
-if(is_directory){
+if (is_directory) {
     captured_output <- capture.output({
         result <- style_dir(args$dir, indent_by = 4, dry = args$dry, recursive = TRUE)
     })
-}else{
+} else {
     captured_output <- capture.output({
         result <- style_file(args$dir, indent_by = 4, dry = args$dry)
     })
 }
 
 n <- nrow(subset(result, changed == TRUE))
-if(n > 0){
-    if(args$dry == "off"){
+if (n > 0) {
+    if (args$dry == "off") {
         print(paste("Changed", n, "files"))
-    }else{
+    } else {
         stop(paste("Linting failed for", n, "files"))
     }
-}
+}