R 在“闪亮”中自动调整艺术的大小

如何在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'))
      )
    )
 ))

#Server.R
要求（艺术）
shinyServer（功能（输入、输出）{
output$chart1我正在使用
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>'))
      )
    )
 ))

#ui.R。
要求（艺术）
shinyUI（shinyUI（fluidPage(
标题板（“标题板”），
侧边栏布局(
侧边栏面板（“侧边栏面板”），
主面板（“主面板”，
showOutput（“图表1”、“高图”），
HTML（'.rChart{宽度：100%；高度：600px}'））
)
)
))

希望这对您有所帮助……
您就快到了：rChart的
图表输出
无法通过其大小，因此解决方法是使用
绘图输出
对象来完成此操作

以下是一个适合我的解决方案：

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


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

#server.R
要求（艺术）
shinyServer（功能（输入、输出、会话）{
输出$chart1动态大小调整在rCharts中还不可用。您当前需要一些技巧来实现它。谢谢，您能揭示这些技巧吗？让我试着给您举个例子。+1.有完全相同的问题我一直在尝试在
选项卡面板
中使用它，但当我将其添加到
选项卡面板
中时，我的绘图是d我看到了。当我把它添加到一个特定的选项卡上时，它就起作用了……有什么想法吗？它对我起作用了，但仍然有问题……当我重新调整窗口的大小，然后单击另一个选项卡时，我的绘图几乎被压扁为零……直到我再次调整大小并显示该绘图。
#server.R
require(rCharts)
shinyServer(function(input, output, session) {
  output$chart1 <- renderChart2({
    r1 <- rPlot(mpg ~ wt | am + vs, data = mtcars, type = "point", color = "gear")
    r1$set(width = session$clientData$output_plot1_width)
    return(r1)
  })
})


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