使用闪亮动态地将图添加到网页

Question

我想使用闪亮的动态创建绘图的应用程序添加到页面。它可能是10个地块，也可能只有一个。我在动态UI的闪亮主页中使用了本教程。

这是一个简化的示例。该函数showme正在绘制图形

服务器

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

    })

})

用户界面

shinyUI(pageWithSidebar(

  headerPanel("My Plots !"),

  sidebarPanel(

    wellPanel(

      p(strong("Scan1"))))

 ,mainPanel(

      uiOutput("MyList")

)))

我收到以下错误

Listening on port 8100

Error in .subset2(x, "impl")$defineOutput(name, value, deparse(substitute(value))) : 

  Unexpected character output for display

如果不是这样-我将不胜感激。谢谢。

> sessionInfo()

R version 2.15.3 (2013-03-01)

Platform: i386-w64-mingw32/i386 (32-bit)