Cambia automáticamente el tamaño de rChart en brillante

shiny rcharts

Question

¿Cómo puedo cambiar automáticamente el tamaño de un gráfico de rChart en brillante? Me gustaría ajustar la trama a la pantalla del usuario, como se hace para trazados regulares con renderPlot. Aquí hay un ejemplo mínimo:

#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''))
)
)
))

Intenté agregar:

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

Pero no funciona.

Answer 1

Estoy usando highcharts y agregando código HTML justo después de que la función showOutput funcionó para mí.

#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>''))
)
)
))

Espero que esto ayude...

Answer 2

Casi había llegado: el chartOutput de chartOutput no pasa su tamaño, por lo que la solución es usar un objeto plotOutput para hacer esto.

Aquí hay una solución que funciona para mí:

#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'')
)
)
)
))

Nota: aquí hay otro ejemplo que escribí con un gráfico de tipo nvd3: https://gist.github.com/nassimhaddad/3057e9ac687591fa5138