r - 自动调整 Shiny 的图表大小

Question

如何在 Shiny 的情况下自动调整 rChart 图的大小？我想使绘图适合用户的屏幕，就像使用 renderPlot 为常规绘图所做的那样。这是一个最小的例子:

#Server.R
require(rCharts)
shinyServer(function(input, output) {
  output$chart1 <- renderChart2({
    r1 <- rPlot(mpg ~ wt | am + vs, data = mtcars, type = "point", color = "gear")
    return(r1)
    })
  })


#ui.R.
require(rCharts)
options(RCHART_LIB = 'polycharts')
shinyUI(shinyUI(fluidPage(
titlePanel("title panel"),      
   sidebarLayout(
      sidebarPanel("sidebar panel"),
        mainPanel("main panel",
                   chartOutput("chart1", 'polycharts'))
      )
    )
 ))

我尝试添加:

w <- session$clientData$output_chart1_width
r1$set(width = w)

但它不起作用。

Answer 1

我正在使用 highcharts并在 showOutput 之后添加 HTML 代码功能对我有用。

#ui.R.
require(rCharts)
shinyUI(shinyUI(fluidPage(
titlePanel("title panel"),      
   sidebarLayout(
      sidebarPanel("sidebar panel"),
        mainPanel("main panel",
                   showOutput("chart1", 'highcharts'),
                   HTML('<style>.rChart {width: 100%; height: 600px}</style>'))
      )
    )
 ))

希望这可以帮助...