閃亮：增加按鈕點擊的高圖大小

Question

我想單擊縮放按鈕來增加高圖的大小。我嘗試使用下面的代碼來增加大小，但到目前爲止，我還沒有能夠實現我想要做的事情。我實際上想讓高圖展開並在點擊縮放按鈕時佔據整個頁面。到目前爲止，我已經編寫了下面的代碼，但它似乎不起作用。誰能告訴我我做錯了什麼？

require(shiny) 
require(rCharts) 

ui <- fluidPage(


    tags$script('Shiny.addCustomMessageHandler("ZoomPlot", function(variableName){ 
       document.getElementById(variableName).style.height = "1000px"; 
       }); 
       '), 

    headerPanel("Test app"), 
    actionButton("test", "Zoom"), 

    div(class = "chart-container", showOutput("viz", "highcharts")) 
) 



server <- shinyServer(function(input, output, session) { 
    output$viz <- renderChart2({ 
    a <- highchartPlot(Sepal.Length ~ Sepal.Width, data=iris) 
    a 
    }) 

    observeEvent(input$test,{ 
    session$sendCustomMessage(type = 'ZoomPlot', message = "viz") 
    }) 
}) 

shinyApp(ui, server) 

Answer 1

你可以把它僅僅使用服務器端的像

server <- shinyServer(function(input, output, session) { 
    hh=reactive({ 
    if(input$test>0) {1000}else{400} 
    }) 
    output$viz <- renderChart2({ 
    a <- highchartPlot(Sepal.Length ~ Sepal.Width, data=iris) 
    a$set(height = hh() 
     ) 
    a 
    }) 

}) 

做