viewerHeight doesn't work when editor is used

[royfrancis]

The height of viewer changes based on viewerHeight as expected.

But when editor is displayed, the viewerHeight doesn't seem to have an effect.

Here is the test code:

---
title: Index3
format:
  html
filters: 
  - shinylive
---

```{shinylive-r}
#| standalone: true
#| viewerHeight: 420
#| components: [editor, viewer]

shinyApp(
ui=fluidPage(
  selectInput("data_input",label="Select data",choices=c("mtcars","faithful","iris")),
  selectInput("header_input",label="Select column name",choices=NULL),
  plotOutput("plot_output",width="400px")
),

server=function(input,output,session) {
  getdata <- reactive({ get(input$data_input, 'package:datasets') })

  observe({
    updateSelectInput(session,"header_input",label="Select column name",choices=colnames(getdata()))
  })

  output$plot_output <- renderPlot({
    #shiny::req(input$header_input)
    #validate(need(input$header_input %in% colnames(getdata()),message="Incorrect column name."))
    hist(getdata()[, input$header_input],xlab=input$header_input,main=input$data_input)
  })
})

#| standalone: true
#| viewerHeight: 600
#| components: [editor, viewer]

shinyApp(
ui=fluidPage(
  selectInput("data_input",label="Select data",choices=c("mtcars","faithful","iris")),
  selectInput("header_input",label="Select column name",choices=NULL),
  plotOutput("plot_output",width="400px")
),

server=function(input,output,session) {
  getdata <- reactive({ get(input$data_input, 'package:datasets') })

  observe({
    updateSelectInput(session,"header_input",label="Select column name",choices=colnames(getdata()))
  })

  output$plot_output <- renderPlot({
    #shiny::req(input$header_input)
    #validate(need(input$header_input %in% colnames(getdata()),message="Incorrect column name."))
    hist(getdata()[, input$header_input],xlab=input$header_input,main=input$data_input)
  })
})

quarto 1.4.549 quarto-shinylive 0.1.0

[royfrancis]

To increase height, one option is to add empty lines in the text editor.

[royfrancis]

Same issue as #33