studio - superponer graficas en r ggplot

cambiar los atributos de altura del gráfico producido con rCharts para usar con rshiny

Question

Estoy usando rCharts para implementar un gráfico interactivo en rshiny. Estoy usando la biblioteca morris Aquí hay un ejemplo mínimo de mi problema:

## ui.R
require(rCharts)
shinyUI(pageWithSidebar(
  headerPanel("rCharts: Interactive Charts from R using morris.js"),

  sidebarPanel(
  ),
  mainPanel(
    showOutput("myChart", "morris")
  )
))

require(rCharts)
shinyServer(function(input, output) {
  output$myChart <- renderChart({
    data(economics, package = ''ggplot2'')
    econ <- transform(economics, date = as.character(date))
    m1 <- mPlot(x = ''date'', y = c(''psavert'', ''uempmed''), type = ''Line'',
                data = econ)
    m1$set(pointSize = 0, lineWidth = 1)
    m1$addParams(dom = ''myChart'')
    m1$params$width = 200
    m1$params$height = 200
    return(m1)
  })
})

Los componentes alto y ancho funcionan bien si el objeto m1 no se envía brillante pero parece que se ignoran después de ser procesados ​​por renderChart . He recurrido a una solución temporal usando una hoja de estilo:

.shiny-html-output.morris{
  height: 200px;
  width: 200px;
}

¿Hay alguna opción que me falta? Por ejemplo, en plotOutput en el paquete shiny puede estipular: plotOutput("plot2", height = "260px") por ejemplo.

Answer 1

Esta es actualmente la funcionalidad que se agregará a rCharts en el futuro. Como solución temporal, agregué una entrada a una hoja de estilo para implementar los dos gráficos de Morris en mi aplicación. Agregue una carpeta www / al directorio de su aplicación y cree un archivo styles.css . Añadir

 tags$head(
   tags$link(rel = ''stylesheet'', type = ''text/css'', href = ''styles.css'')
 ),

para ui.R y colocar

.shiny-html-output.morris{
  height: 200px;
  width: 200px;
}

en styles.css