Output of errors has issues with (rlang) special characters

[nikolas-burkoff]

I suspect this behaviour occurred with chunks too

And in console you get:

library(teal.code)
library(shiny)
library(dplyr)
library(teal.widgets)

ui <- fluidPage(
  plotOutput("plot"),
  verbatim_popup_ui("src", "SRC")
)

server <- function(input, output, session) {

  q1 <- reactive({
    new_qenv() %>%
      eval_code(quote(x <- dplyr::select(iris, f))) %>%
      eval_code(quote(p <- hist(iris[, "Species"])))
  })

  output$plot <- renderPlot(q1()[["p"]])

  verbatim_popup_srv("src", reactive(paste(teal.code::get_code(q1()), collapse = "\n")), title = "SRC")

}

shinyApp(ui, server)

Note: