Issue controlling the ncharts, nrow and ncol options of the compareOptions function via shiny input about manipulatewidget HOT 3 CLOSED

server <- function(input, output, session) {
  
  data <- reactive({
    if(runif(1) > 0.5){
      data.frame(
        year = 2000+1:input$obs,
        series1 = rnorm(input$obs),
        series2 = rnorm(input$obs),
        series3 = rnorm(input$obs)
      )
    } else {
      data.frame(
        year = 2000+1:input$obs,
        series1 = rnorm(input$obs),
        series2 = rnorm(input$obs)
      )
    }
    
  })
  
  observe({
    ncharts = input$ncharts
    nrow = input$nrow
    ncol = input$ncol
    
    c <- manipulateWidget(
      {  
        dygraph(data[range[1]:range[2] - 2000, c("year", series)], main = title)
      },
      range = mwSlider(min = 2001, max = 2001 + (nrow(data)-1), c(2001, 2001 + (nrow(data)-1))),
      series = mwSelect(choices = colnames(data)[-1], value = colnames(data)[3]),
      title = mwSharedValue(),
      data = mwSharedValue(), .runApp = FALSE,
      .compare = "range",
      .compareOpts = compareOptions(ncharts = ncharts, nrow = nrow, ncol = ncol)
    )
    mwModule("ui", c, title = reactive(input$title), data = data)
  })
  
}