remove one trailing newline in final modifyRange()

simonpcouch · Dec 2, 2024 · 622380e · 622380e
1 parent 1103514
commit 622380e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rstudioapi.R b/R/rstudioapi.R
@@ -179,7 +179,7 @@ stream_selection_impl <- function(selection, context, pal, n_lines_orig, remaind
   # unpadded version to remove unneeded newlines
   rstudioapi::modifyRange(
     selection$range,
-    paste0(output_lines, remainder),
+    string <- sub("\n$", "", paste0(output_lines, remainder)),
     context$id
   )