Trailing text (prose) not rendered for expression input

[Henrik-P]

If a reprex ends with text, the text following the code is not rendered. I.e. this reprex code:

reprex({
#' If a `reprex` ends with text, the text following the code is not rendered
x <- 1:2 
#' Trailing text
})

...generates this:

If a reprex ends with text, the text following the code is not rendered

x <- 1:2

---

reprex({
  #' Add some code after the trailing text to render it
  x <- 1:2
  #' Non-trailing text is rendered
  x
  })

Add some code after the trailing text to render it

x <- 1:2

Non-trailing text is rendered

x
#> [1] 1 2

[krlmlr]

This looks like an issue with knitr::spin(), can you please double-check?

[jennybc]

AFAICT this problem is specific to expression input and is because R's source references do not contain the trailing comment. As long as reprex uses substitute() and the "srcref" attribute, this is going to be a problem. The examples show this and that it could be fixed if I could somehow append #+ echo = FALSE; invisible() to expression input. How could you even do that?

---

Non-expression input:

reprex(input = c("1:2", "#' Trailing text"))

Result:

1:2
#> [1] 1 2

Trailing text

---

Expression input:

reprex(input = c("1:2", "#' Trailing text"))

Result:

1:2
#> [1] 1 2

---

Expression input with a protective end-cap:

reprex({
  1:2 
  #' Trailing text
  #+ echo = FALSE
  invisible()
})

Result:

1:2
#> [1] 1 2

Trailing text

[jennybc]

Pretty sure it's not practical to address this. Trailing text is a reason to use the input argument or clipboard.

[jennybc]

OK I am going to fix this.

[jennybc]

After the fix, with this input:

reprex({
#' If a `reprex` ends with text, the text following the code is NOW rendered
x <- 1:2 
#' Trailing text woot!
})

Output:

If a reprex ends with text, the text following the code is NOW rendered

x <- 1:2

Trailing text woot!