반짝 : 버튼 클릭시 하이 차트 크기 증가

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

}) 

같은 전용 서버 측을 사용하여 수행 할 수 있습니다