Shiny：渲染图的可变高度

Question

我想利用我的情节的高度反应性，因为有时我只需要绘制一张图，有时需要绘制两到三张图。这是我的代码：

    output$myplot<-renderPlot({

    plot_to_draw <- data[data$code==input$code,"River_name"]

    plot(plot_to_draw)   

    number_of_plot <- length(plot_to_draw)

    },height = 500*number_of_plot)

但是 Shiny 只读取一次情节的高度，因此它不是反应性的。谢谢您的回答 ！

Answer 1

我终于找到了解决办法；

server.R
output$myplot<-renderPlot({ 
plot_to_draw <- data[data$code==input$code,"River_name"] 
plot(plot_to_draw) 
number_of_plot <- length(plot_to_draw) 
},height = function(){500*number_of_plot})

ui.R
plotOutput(outputId="myplot",height = "auto")