Я хочу создать приложение, используя блестящие, которые динамически добавляют графики на страницу. это может быть 10 сюжетов, и это может быть только одно. Я использую этот учебник на блестящей домашней странице для динамического интерфейса.
это упрощенный пример.
функция showme
рисует график
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")
)))
Я получаю следующую ошибку
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)