don't strip trailing newlines from chunk (closes #9)

simonpcouch · Nov 25, 2024 · 633c38d · 633c38d
1 parent f3455dd
commit 633c38d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rstudioapi.R b/R/rstudioapi.R
@@ -150,7 +150,7 @@ stream_selection_impl <- function(selection, context, pal, n_lines_orig, remaind
   stream <- pal$clone()[[".__enclos_env__"]][["private"]]$.stream(selection_text)
   coro::loop(for (chunk in stream) {
     if (identical(chunk, "")) {next}
-    output_lines <- paste(output_lines, sub("\n$", "", chunk), sep = "")
+    output_lines <- paste(output_lines, chunk, sep = "")
     n_lines <- nchar(gsub("[^\n]+", "", output_lines)) + 1
     if (n_lines_orig - n_lines > 0) {
       output_padded <-