Eu quero criar um aplicativo usando brilhante que dinamicamente adicionar gráficos à página. Poderia ser 10 parcelas e poderia ser apenas uma. estou a usareste tutorial na página inicial brilhante da interface do usuário dinâmica.

Este é um exemplo simplificado. a funçãoshowme está ploting o gráfico

server.r

shinyServer(function(input, output) {
  # Create an environment for storing data
  symbol_env <- new.env()
  # Make a chart for a symbol, with the settings from the inputs
  make_chart <- function(symbol) {
    showme(symbol)
  }

  display <- c("1083484" , "1101732")

  output$MyList <- renderUi({ 
    for (i in i:nrow(display))
       renderPlot({make_chart(display[i])})
    })
})

ui.r

shinyUI(pageWithSidebar(
  headerPanel("My Plots !"),
  sidebarPanel(
    wellPanel(
      p(strong("Scan1"))))
 ,mainPanel(
      uiOutput("MyList")
)))

estou recebendo o seguinte erro

Listening on port 8100
Error in .subset2(x, "impl")$defineOutput(name, value, deparse(substitute(value))) : 
  Unexpected character output for display

se este não é o caminho - eu gostaria de receber qualquer orientação. Obrigado.

> sessionInfo()
R version 2.15.3 (2013-03-01)
Platform: i386-w64-mingw32/i386 (32-bit)