小编Eri*_*rus的帖子

如何自动调整闪亮的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)

但它不起作用.