单击以查看下一个绘图 for（1:4中的i）{ v

使用

slickR

软件包制作一个漂亮的幻灯片

for (i in 1:4){
  v <- rnorm(50)
  plot(v, main=paste("Iteration ", i))
}

库（闪亮）
图书馆（滑头）
图书馆（svglite）
绘制你的最小可复制闪亮应用程序的样子？你能给我一些我应该研究的方向吗？绘制只是绘制最后一次迭代我不想给出像“google it”这样的答案。但是这里试着键入“Plot Shining”，瞧：你的绘制是反应性的还是“预定义的”？
library(shiny)
library(slickR)
library(svglite)

plots <- lapply(1:5, function(i){
  xmlSVG({plot(rnorm(50), main=paste0("Iteration ", i))}, standalone = TRUE)
})
#make the plot self contained SVG to pass into slickR 
plotsAsSVG <- sapply(plots, function(sv){
  paste0("data:image/svg+xml;utf8,",as.character(sv))
})


ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      ####
    ),

    mainPanel(
      slickROutput("slickr", width="500px")
    )
  )
)

server <- function(input, output) {

  output$slickr <- renderSlickR({
    imgs <- plotsAsSVG
    slickR(imgs)
  })

}

# Run the application 
shinyApp(ui = ui, server = server)