シャイニー：ボタンクリックでハイチャートサイズを増やす

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 
    }) 

}) 

のようなサーバー側のみを使用してそれを行うことができます