_Quantitative Finance with R_ – auto-animate-code

# 创建图片填充预设位置
output$phonePlot <- renderPlot({
  # 生成柱状图
})

# 创建图片填充预设位置
output$phonePlot <- renderPlot({
  # 生成柱状图
  barplot(WorldPhones[,input$region]*1000, 
          main=input$region,
          ylab="Number of Telephones",
          xlab="Year")
})

# 创建图片填充预设位置 output $ phonePlot <- renderPlot ({ # 生成柱状图 })