only add line break at EOF if there is not one already. Closes #311.

Author: lorenzwalthert

R/addins.R

@@ -33,7 +33,7 @@ style_active_file <- function() {
   }
   rstudioapi::modifyRange(
     c(1, 1, length(context$contents) + 1, 1),
-    paste0(append(out, ""), collapse = "\n"),
+    paste0(ensure_last_is_empty(out), collapse = "\n"),
     id = context$id
   )
   if (Sys.getenv("save_after_styling") == TRUE && context$path != "") {

R/utils.R

@@ -4,6 +4,15 @@ line_col_names <- function() {
   c("line1", "line2", "col1", "col2")
 }
 
+ensure_last_is_empty <- function(x) {
+  has_line_break_at_eof <- x[length(x)] == ""
+  if (has_line_break_at_eof) {
+    return(x)
+  } else {
+    append(x, "")
+  }
+}
+
 #' Check whether two columns match
 #'
 #' @param col1,col2 Column names as string.