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

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 8100Error 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)