r - 更改使用 Charts 生成的图形的高度属性以与 r Shiny 一起使用

Question

我正在使用 rCharts 在 rshiny 中实现交互式图形。我正在使用莫里斯图书馆
这是我的问题的最小示例:

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

如果 m1 对象没有发送到 Shiny，则高度和宽度组件工作正常，但它们在被 renderChart 处理后似乎被忽略了。 .我已经使用样式表进行了临时修复:

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

有没有我缺少的选项？例如在 plotOutput在 shiny包你可以
规定: plotOutput("plot2", height = "260px")例如。

Answer 1

这是目前将在 future 添加到 rCharts 的功能。作为临时修复，我在样式表中添加了一个条目，以实现应用程序上的两个莫里斯图。将 www/文件夹添加到您的应用程序目录并创建一个 styles.css文件。添加

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

至 ui.R并放置

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

在 styles.css